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i PROLOGUE 


A. PROGRAMMING LANGUAGES 
1. Conventional Programming Languages 
"Conventional programming languages are growing ever 
more enormous, but not stronger. Inherent defects at the 
most basic level cause them to be both fat and weak: their 
primitive word-at-a-time style of programming inherited 
from their common ancestor, the von Neumann computer, their 
close coupling of semantics to state transitions, their 
division of programming into a world of expressions and a 
world of statements, their irability to effectively use 
powerful combining forms for building new programs from 
existing ones, and their lack of useful mathematical pro- 
perties for reasoning about programs." [Ref. 1] 
2. Software Crisis and Ada 
It is virtually a cliche to say there is a software 
crisis. This crisis in software production is far greater 
than the situation of the early 50's that led to the develop- 
ment of high level languages to relieve the burden of coding. 
The symptoms appear in the form of software that is nonre- 
Sponsive to user needs, unreliable, excessively expensive, 
untimely, inflexible, difficult to maintain, and not reusable. 
There are many ways to improve things a little and they are 
being tried. But to achieve a fundamental jump in our pro- 
gramming capacity, we need to rethink what we are doing from 
the beginning. 
A programming language shapes the way we think about 


the solutions to our problems. Ideally, we desire a language 


that leads us to systems that map directly to the problem 


space and that helps us control the complexity of programming 
solutions. Is Ada such a language or is it born dead? ТЕ 
is time to listen to Hoare. 


"I have been giving the best of my advice to this pro- 
ject since 1975. At first I was extremely hopeful. The 
original objectives of the language included reliability, 
readability of programs, formality of language definition, 
and even simplicity.  Gradually these objectives have been 
sacrificed in favor of power, supposedly achieved by a 
plethora of features and notational conventions, many of 
them, like exception handling, even dangerous. We relive 
the history of the design of the motor car. Gadgets and 
glitter prevail over fundamental concerns of safety and 
economy. 


And so, the best of my advice to the originators and 
designers of Ada has been ignored. I appeal to you, repre- 
sentatives of the programming profession in the United 
States, and citizens concerned with the welfare and safety 
of your own country and of mankind: Do not allow this 
language in its present state to be used in applications 
where reliability is critical, i.e., nuclear power stations, 
cruise missiles, early warning systems, anti-ballistic 
missile defense systems. The next rocket to go astray as 
result of a programming language error may not be an ex- 
ploratory space rocket on a harmless trip to Venus: It 
may be a nuclear warhead exploding over one of our own 
cities."  [Ref. 2] 


B. TOWARDS A SOLUTION: FUNCTIONAL PROGRAMMING 

Just as high level languages enabled the programmer to 
escape from the intricacies of a machine's order code, higher 
level programming systems can provide help in understanding 
and manipulating complex systems and components. We need to 
shift our attention away from the detailed specification of 
algorithms, towards the description of the properties of the 
packages and objects with which we build. A new generation 
of programming tools will be based on the attitude that what 
we say in a programming system should be primarily declarative, 
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not imperative. The fundamental use of a programming system 
is not in creating sequences of instructions for accomplish- 
ing tasks, but in expressing and manipulating descriptions 
of computational processes and the objects on which they are 
carried out. 

An alternative functional style of programming is founded 
on the use of combining forms for creating programs.  Func- 
tional programs deal with structured data, are often non- 
repetitive and nonrecursive, are hierarchically constructed, 
do not name their arguments, and do not require the complex 
machinery of procedure declarations to become generally applic- 
able. Combining forms can use high level programs to build 
still high level ones ina style not possible in conventional 
languages. [Ref. 1] 


"This style of programming, also known as applicative 
programming and value-oriented programming, is important 
for a number of reasons. First, functional programming 
dispenses with the ubiquitous assignment operation. As 
structured programming is often called 'goto-less programm- 
ing.', so functional programming can be called 'assignment- 
less programming."': 


The second reason that functional programming is im- 
portant is that it encourages one to think at higher levels 
Of abstraction. This is because functional programming 
provides a mechanism (functionals) for modifying the be- 
havior of existing programs and for combining existing 
programs. 


The third reason for the functional programming is 
that it provides a paradigm for programming large, parallel 
computers. As we begin to reach speed of light and other 
limitations on computer speed, we can expect to see com- 
puters that achieve higher speed by greater parallelism. 
Functional programming's absence of assignments, independ- 
ence of evaluation order, and ability to operate on entire 
data structures provide paradigms for programming these 
machines. 
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The fourth reason is its applications in ‘лосі саст 
Intelligence' (AI). Currently most AI programming is done 
in LISP, a language which inspired much of the early work 
in functional programming. PROLOG is the newest AI pro- 
gramming language and has a central role in the Japanese 
Fifth Generation [FG] Computer Project, PROLOG is a func- 
tional programming language [See Figure 1.1 for a sample 
Prolog Program]. Further, since AI techniques are finding 
wider and wider applications, functional programming is 
important to more than just AI programmers: it is impor- 
tant to all programmers. 


The fifth reason that functional programming is impor- 
tant is that it is valuable for developing executable 
specifications and prototype implementations. The simple 
underlying semantics and rigorous mathematical foundations 
of functional programming along with its high expressive 
ability make functional programming an ideal vehicle for 
specifying the intended behavior of programs. Functional 
programming can serve this function even if no functional 
programming language system is available to execute the 
program. However, if such a system is available then we 
have something very valuable: an executable specification. 
This. can be used as a prototype implementation to deter- 
mine if the specifications are correct, and as a benchmark 
against which later implementations can be compared. Thus, 
even if the reader never intends to write do functional 
programming, it can still be a valuable tool for the for- 
mulation, expression and evaluation of program specifications. 


Finally, functional programming is important because of 
its connections to computer science theory. Functional 
programming provides a simpler framework for viewing many 
of the decidability questions of programming and computers 
than do the usual approaches."  [Ref. 3] 


THE FIFTH GENERATION COMPUTER PROJECT 


In April 1982, Japan launched a research project to 


develop computer systems for the 1990's. The project, called 


the Fifth Generation computers project, will span 10 уел $ 


Its ultimate goal is to develop integrated systems, both 


hardware and software, suitable for the major computer appli- 


cation in the next decade, identified by the Japanese as 
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Figure 1.1 A Simple PRODUCTION SYSTEM Written in PRCLOG 
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"knowledge information processing." Even though it may ul- 
timately have applicable results, the current focus of the 
ES E is basic research rather than the development of 
commercial products.  [Ref. 4] 

In addition to bringing Japan into a leading position in 
the computer industry, the project is expected to elevate 
Japan's prestige in the world. It will refute accusations 
that Japan is only exploiting knowledge imported from abroad 
without contributing any of rts own to benefit the res 
the world. Hence, the project aims at original research and 
plans to make its results available to the international re- 
search community.  [Ref. 5] 

The most intriguing aspect of the project is its commit- 
ment to build the Fifth Generation systems around the con- 
cepts of logic programming. In the following paragraphs we 
trace the roots and rationale for this commitment. 

There are many attributes that prescribe a computer sys- 
tem; however, the most important one is what language we ac- 
cept as the main programming language. For application 
areas, the basic structure of software systems and the frame 
of computer architecture are all determined by this language. 
So in this project, this main programming language, FG-Kernel 
Language, seems to be the most important research theme. The 
research and development of this language must be carefully 
pursued on the basis of systematic studies on various aspects 


such as artificial intelligence (problem solving and knowledge 
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ee sentation), software engineering, examination of various 
programming language proposed, etc. The reasons why a logic 
programming language (PROLOG) is chosen as the kernel of FG- 
Kernel language are summarized below. 

It is appropriate for programming of knowledge informa- 
tion processing system. List processing, database mechanism 
similar to relational database, pattern matching (unification) 
which clearly represents the composition and decomposition of 
data structure and database research, non-deterministic pro- 
cessing, etc. are indispensable processing functions in pro- 
gramming of knowledge information processing systems. PROLOG 
has all basic parts of these functions, and moreover, is able 
to be extended to get more high performance functions. 

It gives new paradigms of programming. A non-procedural 
representation scheme, high modularity, a happy blending of 
computation and database search etc. are new programming 
paradigms. These paradigms, what is better still, make it 
much easier to deal with programs and programming as formal 
objects and give great possibilities to realize a program 
verifier and an automatic programming system. 

memoleceeas to the results of efforts made by current 
programming languages. Much has been discussed about the 
relationship between logic programming languages and func- 
tional languages, and it has become generally appreciated 
that these languages will play the leading part in future 
programming. To be concrete, also as to Lisp, the function- 


al language that is most widely put into practical use at 


DS 


present, it is possible to extend PROLOG efficiently to in- 
clude useful functions of Lisp as a subset. PROLOG can put 

a search mechanism with backtracking control into practical 
use by using logical formulas (Horn clauses) as language con- 
structs and by improving implementation techniques. 

It introduces new computer architectures.  FG-Kernel 
Language will 52 first implemented on an conventional large 
scale computer and then on a high performance personal com- 
puter. According tothe research plan of the Fifth Generation 
Computers, the language will be improved and extended step by 
step, based on actual experience and various research results. 
And finally, the language will become a machine language for 
the target machine of this project. Consequently, the lan- 
guage (Edinburgh version) must be such a language as funda- 
mentally has all of the appropriate mechanisms for data flow 
machines and data base machine architectures supposed as 
basic architectures of the target machine. PROLOG has a 
great possibility for this, too. 

For the above reasons, PROLOG has been chosen as the ker- 
nel of Kernel Language. Next, the main features of improve- 
ment and extension of PROLOG now under study are enumerated. 
We саме реше ву to the arrangment of all primitive and nec- 
essary functions over invention of high level ones. 

1. Abstract Data Types (Encapsulation) 

The usefulness of abstract data types has been well 


known and recently most new programming languages have adopted 
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it as the basic function. But the current version of PROLOG 
doesn't have this construct explicitly. 50, we have to in- 
troduce it in natural way. To introduce every function of 
the abstract data type and to make clear its function for 
program specification and program verification remain as a 
long term research theme. 

It is desired that this extension is made by natural 
enlargement of functions which PROLOG has now. PROLOG has 
one internal database. In this database, all clauses (unit 
and non-unit) are stored. There are predicates which assert 
ит гас: these clauses, and the way to cause side-effects 
is to alter the contents of the database with these predi- 
cates. This situation can be interpreted as follows: there 
is only one abstract data type called internal database. 
Consequently, to make it possible to define a number of ab- 
stract data types is to make it possible to create a number 
of databases, which can be called Micro databases. Various 
advantages are obtained by the introduction of Micro data- 
bases. For instance, 

ШІ Side-effects are localized. 

(b) Structures are introduced into programs. If a nested 
structure 1s permitted among databases, more compli- 
cated program structures can be represented. 

(c) Separate compilation becomes available. Clauses which 
are not exported, are never accessed from the outside. 


So, it is possible to compile calling sequences 
(unification) to these clauses. 
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2. Refined Higher-order Extensions. 

PROLOG is a simple and powerful language based on 
first-order logic. For practical use, however, various high- 
er-order extensions have to be introduced. What is essential 
is still open to discussion. For example, it is said that 
higher-order extensions like lambda expressions and predicate 
variables are not very essential and first-order logic has 
enough ability. In Lisp, for example, the most primitive 
mechanism for higher-order programming is that program and 
data have the same structure, and that quote and eval func- 
tions are provided, which control whether some data structures 
are regarded as program or data. This mecnanism is introduced 
to PROLOG too as a primitive one. The basic data structure 
of Lisp is the list (s-expression). To PROLOG, the tuple is 
regarded as a basic one. Each term, predicate and Horn clause 
is able to be internally represented as a tuple. At the head 
of each tuple, the tuple name is placed and the attribute of 
this name indicates what the tuple represents. And then, for 
composition and decomposition of tuples, unification is ex- 
tended and some predicates are introduced. 

The most fundamental construct for the control Stee 
ture of PROLOG is the cut operation. This operation is very 
powerful, but its effect is very hard to understand. So, it 
is compared to the goto statement in a conventional language. 
It is possible to introduce more structured constructs for 


control and banish the cut operation, as we did the goto 


l6 


statement. For example, the introduction of a selection mode 
for clauses is possible. 
3. Enough Preparation of Programming Tools 
Evaluation with backtracking makes debugging very 
difficult. This means it is necessary to prepare more power- 
ful tools. These include: (1) Debugger, which traps evalua- 
tion by error or break, keeps the environment as it is and 
responds to various users' commands, (2) Tracer, which traces 
the history of evaluation of specified predicates and varia- 
bles and displays it in pretty format, (3) Stepper, which 
evaluates program steps one by one and displays various states 
by the minute, (4) Editor, which edits clauses with pattern 
matching, etc. These tools are combined into one total pro- 
gramming system in order to be invoked at any place. 
4. High Level Data Structure 
It is pointed out that data structures such as sets 
and bags which collect elements to satisfy certain conditions, 
represented by predicates, are improtant. For this, the most 


primitive higher-order predicate is provided to PROLOG as 


well. 
5. Useful Functions for System Description 
Interpreters, compilers, file systems, tools for de- 
bugging, etc., a lot of system programs have to be developed. 


The Kernel part of them can be implemented by micro programs. 
The rest are desirable to be implemented by PROLOG itself. 
For this purpose, it is possible to introduce efficient sys- 


tem description functions into it. For example, they are: 


ey 


Abstract data types with good efficiency. А compiler is 
able to transform the Micro database introduced in (1) into 
very efficient object codes under a "certain тес еее 
For example, it transforms a clause in Micro database into 
such codes as fetch and store terms directly in a predicate 
which represents its internal states. 


Refined system data structures. Data structures which 
represent the internal state of the system are refined. 
Basic predicates which access and manipulate them and 
basic protection mechanism are both provided. 


Constructs for parallel processing. Necessary parallel 
processing constructs for programs controlling external 
devices are introduced as simply as possible. 


Compared with an ordinary system description language, 
PROLOG has far higher level functions, therefore, it is 
apt to be thought that it is not appropriate for system 
description. But, under natural restrictions and degen- 
eration or functions, it is able to guarantee the same 
efficiency as an ordinary system description language 
does. Examples of these restrictions are: There is no 
non-deterministic selection. Unification is restricted. 
A term is a variable or a constant. Furthermore, it is 
restricted to the parameter binding of an ordinary func- 
tional language. 


6. The Others 
Besides the above, the following functions have to be 
researched. They are: Large scale databases, connection with 
external databases (relational databases), other search modes 
different from top-down and depth-first search, and the im- 


provement of backtracking search mechanism. 
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II. EXPRESSION OF RELATIONAL DATABASE QUERIES IN LOGIC 


A.  RELATIONAL DATABASES 

Development of data base systems was one of the core ele- 
ments during the progress in the 70's of computer technology. 
How to organize and how to utilize gigantic volumes of data 
were the questions. The progress was made by accumulating 
experience. Along with it, efforts to organize such exper- 
ience theoretically also went on. 

Codd's proposal for relational databases was made early 
in the 70's, but is only now about to become a major stream 
in structuring data bases. This is based on a theory of 
"relations". As query languages for the data bases predicate 
formulas (relational calculus) and functional formulas (re- 
lational algebra) are proposed. These are mutually inter- 
changeable. They can be regarded as certain kinds of special 
logics, and through the 70's a great deal of theoretical re- 


search effort was made in this area. 


Bee QUERIES AND LOGIC 

Relational database retrieval is viewed as a special case 
of deduction in logic. It is argued that expressing a query 
in logic clarifies the problems involved in processing it 
efficiently (query optimization). We want to describe a sim- 
ple way for defining a query so that it can be executed by 
the elementary deductive mechanism provided in the programm- 


ing language PROLOG. 
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Several current relational 
core which can be viewed as no 
of a certain subset of logic. 
consider an example written in 


range of E,M 


database formalisms have a 
more than a syntactic variant 
To illustrate this, let us 
Quel. 


is employee 


range of D is dept 


retrieve 


(E.name) 


where E.salary » M.salary 
and E.manager - M.name 


and E.dept - D.dept 


and ЕТОЙ 


and E.age > 40 


In ordinary English, 


this query means: 


"Which employees 


aged over 40 on the first floor earn more than their manag- 


ers?" 


This query refers to relations: 


employee (name,đept,salary,manager,age) 


dept (dept, floor) 
This query can be expressed in 


syntax) as: 


logic (using Prolog oriented 


answer(E) :- employee(E,D,S,M,A), 


А> 40, 
dept (D, 
еше мен шот” 


ВЫ 
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Read this as: 

E is an answer if 

E is an employee, dept D, salary S, manager M, age A, 
and 

A is greater than 40 and 

D is a department on floor 1 and 

M is an employee, salary S1, and 


S is greater than Sl. 


Here the identifiers starting with a capital letter, such 
as E, D, S, etc., are logic пене ара which can be thought 
of as standing for arbitrary objects of the domain. Contrast 
this with the variables of Quel, which denote arbitrary tu- 
ples of a certain relation specified in a range statement. 
(Because, in this example, tuples can be uniquely identified 
by their first fields, it is natural for the logic variable 
corresponding to this field to have the same name identifier 
as is used for the tuple variable in the Quel version). For 
each tuple variable in a Quel query, there is, in the logic 
version, a corresponding goal (also called "atomic formula"), 
ЕЕС ., 

dept (D, 1) 
A goal consists of a predicate, naming the range relation of 
the corresponding tuple variable, applied to some arguments, 
corresponding to the fields of this relation. Quel con- 
straints which are identities map into an appropriate choice 
of variables or constants (such as 'l') for certain goal 
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arguments. This aspect tends to make the logic form of the 
query more concise and, it can be argued, easier to compre- 
hend. Note the use of * * to denote an "anonymous variabile; 
which is only referred to once, and which therefore does not 
need to be given a distinct name. Quel constraints which are 
inequalities map into separate logic goals. The Quel query 
as a whole maps into a restricted kind of implication, called 
a clause, where the target of the query appears as the con- 
clusion of the implication (to the left of the ':-'). 

Clauses can be used not only to represent queries, but 
also to express the information which makes up the database 
itself. (It is this aspect which distinguishes what will be 
described here from much other work relating logic and 
databases). 

In general a clause consists of an implication, whurchgm 


the Prolog subset of logic is restricted to the form: 


р = ОО о. 
meaning “P is true if Ql and Q2 and ... On are true", whem 
P and the Qi may be any goals. If n = 0, we have what is 


called a unit clause, which is written simply as: 
ра 
meaning "P is true". 
For example, here are some unit clauses, representing 
elementary facts, which serve to define which tuples make up 


relation Parent... 
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parent (david,hugh). 

parent (david,winifred). 

parent (ben,david). 

parent (Реп, )апе). 
The first clause, for instance, may be read as: 

"David has a parent Hugh". 
Here we have defined a database relation by explicitly enu- 
merating its tuples. However it is also possible to define 
a relation implicitly, through general rules expressed as 
non-unit clauses. For example, here is the definition of the 
'ancestor' relation in terms of the 'parent' relation: 

ancestor(X,Z) :- parent(X,Z). 

ancestor(X,2) :- parent(X,Y),ancestor(Y,2). 
Read these clauses as: 

"X has an arcestor Z if X has a parent 2". 

"X has an ancestor Z if 

X has a parent Y and Y has an ancestor Z". 
Note that the second clause makes the definition recursive. 

We can think of 'ancestor' as a "virtual" relation. A pair 
«X,Y^ belongs to the 'ancestor' relation if: 

ancestor (X,Y) 
is a logical conseguence of the clauses which make up the 
database. Thus one can infer, for example, that one of Ben's 
ancestors is Hugh, i.e., 


ancestor (ben,hugh) 
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This use of logic clauses to define a database gives much 
greater power and conciseness than is available in most con- 
ventional relational database systems. These systems do not 
allow an equivalent recursive definition of the 'ancestor' 
relation, for example. 

In fact, the logic subset we have been looking at forms 
the basis of a general purpose programming language, Prolog. 
A Prolog system is essentially a machine which can generate 
solutions to a problem by enumerating all instances of some 
goal which are valid inferences from the clauses which make 
up a "program". For example, if the user presents the query: 

answer(X) :- ancestor(ben,X). 
Prolog responds with the following list of possible values 
for X, representing all the ancestors of Ben that can be 
deduced: 

X = david; X - jane; X = hugh; X = winifred 
The solutions are in fact produced in exactly this order. 
How this takes place will not be described. 

In Prolog, the ordering of clauses in a program, and the 
ordering of goals in the right-hand side of a clause, provide 
important control information, which helps to determine the 
way a program is executed. 

To execute a goal (such as 'ancestor(ben,X)' in the pre- 
vious query), Prolog tries to match it against the left-hand 
side of some clause, by finding values for variables which 


make the clause "head" identical with the goal. When 
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successful, Prolog then recursively executes the goals (if 
any) in the right-hand side of the clause, which will by now 
have been modified by the results of the matching. When no 
match can be found, or when there are no more goals left to 
execute, Prolog backtracks. That is it goes back to the goal 
most recently matched, undoes the effects of the match, and 
then seeks an alternative match. 

Clauses are tried for a match in the order they appear 
in the program. Goals in the right-hand side of a clause are 
executed in the order they appear in that clause. The match- 
ing process is actually unification, a process which effect- 
ively produces the least possible instantiation of variables 
necessary to make the two goals identical. 

Prolog's backtracking can be thought of as a generalized 
form of iteration. Thus the two clauses for 'ancestor', when 
used to satisfy a goal such as 'ancestor(ben,X)', give a be- 
haviour when executed by the Prolog equivalent to the follow- 
ing procedure: 

To generate Zs who are ancestors of X: 
first generate Zs who are parents of X; 
then for each Y who is a parent of X: 
generate Zs who are ancestors of Y. 
In fact, some compilers can compile such clauses into code 
which is comparable in efficiency with iterative loops in a 


more conventional language. 
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As a final remark, one should note that the Prolog subset 
of logic includes, besides the variables and elementary con- 
stants seen so far, objects which are structures. In this 
respect, while being similar to many other programming lan- 
guages, it is a further important generalization of most re- 
lational database formalisms. 

In fact, Prolog was not designed with relational database 
retrieval in mind, it was conceived purely as a programming 
language. The efficiency of processing of Prolog queries 
may be discussed. The Prolog-based approach of Chat-80 com- 
pares with the strategies used in conventional relational 


database systems.  [Ref. 6] 
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ТТТ. TRANSLATION OF A SUBSET OF PROLOG INTO PASCAL 


A. PASCAL AS AN IMPLEMENTOR LANGUAGE 


Pascal is chosen as an object language for this applica- 


tiron, 


because it does have some excellent features.  [Ref. 7] 


Here is a list of positive aspects: 


1) 
2) 


3) 


4) 
5) 
6) 
7) 


8) 


small number of well-chosen keywords, 
small number of syntax and semantics rules, 


meaning of Pascal instructions is highly independent 
of environment, which promotes portability of programs, 


excellent data structuring methods, 

clean and efficient control structuring, 
excellent for programming "in the small", 
gives a feeling of reliability, 


with some care, readability can be kept high. 


Pascal is definitely very useful in the following areas: 


ij 
2) 
3) 
4) 


5) 


6) 


7) 


compiler writing, cross assemblers and compilers, 
text processing, 

general, off-line utility programs (editors, etc.), 
treatment of non-numerical data, 


processing of trees, lists and other complex data 
Structures, 


some mathematical problems, 


construction of portable programs. 


We do not want to deal with the existing problems in that 


language. This is beyond the scope of this thesis. 
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B. PROLOG AND BACKTRACKING 


Prolog is a simple but powerful programming language 


founded on symbolic logic. The basic computational mechanism 
is a pattern matching process ("unification") operating on 
general record structures ("terms" of logic). It can be ar- 


gued that pattern matching is a better method for expressing 
operations on structured data than conventional selectors and 
constructors--both for the user and for the implementor. 

From a user's view the major attraction of the language is 
ease of programming. Clear, readable, concise programs can 
be written quickly with a few errors. 

Prolog has many parallels with Lisp. Both are interac- 
tive languages designed primarily for symbolic data process- 
ing. Both are founded on formal mathematical systems--Lisp 
on Church's lambda calculus, prolog on a subset of classical 
logic. Like pure Lisp, the Prolog language does not (ex- 
plicitly) incorporate the machine-oriented concepts of assign- 
ment and references (pointers). Furthermore, pure Lisp can 
be viewed as a specialization of Prolog, where procedures 
are restricted to simple functions and data structures are 
restricted to lists. 

Prolog differs from most programming languages in that 
there are two quite distinct ways to understand its semantics. 
The procedural semantics is the more conventional, and de- 
scribes in the usual way the sequence of states passed 


through when executing a program. In addition a Prolog 
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program can Бе understcod as a set of aescriptive statements 
about a problem. 

The declarative semantics which Prolog inherits from 
logic provides a formal basis for such a reading. It simply 
defines (recursively) the set of terms that are asserted to 
De true according to a program. A term is true if it is 
head of some clause instance and each of the goals (if any) 
of that clause instance is true, where an instance of a 
clause (or term) is obtained by substituting, for each of 
zero or more variables, a new term for all occurrences of the 
variable. 

The procedural semantics describes the way a goal is 
executed. The object of the execution is to produce true in- 
Ecco: the goal. I€ is important to notice that-the or- 
dering of clauses in a program, and goals in a clause, which 
are irrelevant as far as the declarative semantics is con- 
cerned, constitute crucial control information for the pro- 
cedural semantics. 

To execute a goal, the system searches for the first 
clause whose head matches or unifies with the goal. The uni- 
fication process finds the most general common instance of 
two terms, which is unique if it exists. If a match is found, 
the matching clause instance is then activated by executing 
in turn, from left to right, each of the goals of its body 
(if any). If at any time the system fails to find a match 


for a goal, it backtracks, 1.e., it rejects the most recently 
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activated clause, undoing any substitutions made by the match 
with the head of the clause. Next it reconsiders the origin- 
al goal which activated the rejected clause, and tries to 
find a subsequent clause which also matches the goal. 

Prolog owes it simplicity firstly to a generalization of 
certain aspects of other programming languages, and secondly 
to omission of many other features which are no longer strict- 
ly essential. This generalization gives Prolog a number of 
novel properties. We shall briefly summarize them. 

1) General records structures take the place of Lisp's 
S-expressions. An unlimited number of different 
record types may be used. Records with any number 
of fields are possible, giving the equivalent of 


fixed bound arrays. There are no type restrictions 
on the fields of a record. 


2) Pattern matching replaces the use of selector and 
constructor functions for operating on structured 
data. 

3) Procedures may have multiple outputs as well as 


multiple inputs. 


4) The input and output arguments of a procedure do not 
have to be distinguished in advance, but may vary 
from one call to another. Procedures can be multi- 
purpose. 


5) Procedures may generate, through backtracking, a 
sequence of alternative results. This amounts to 
a high level of iteration. 


6) Unification includes certain features which are not 
found in the simpler pattern matching provided by 
some languages. One can sum this up in the equation: 
Unification = pattern matching + the logical variable. 


8) The characteristics of the "logical" variable arcem Б 
follows. An "incomplete" data structure (i.e., con- 
taining free variables) may be returned as a pro- 
cedure's output. The free variables can later be 
filled in by other procedures, giving the effect of 
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2) 


10) 


EL) 


implicit assignments to a data structure. Where necessary, 
free variables are automatically linked together by 
"invisible" references. As a result, values may have 
to be "dereferenced". This is also performed by the 
system. Thus the programmer need not be concerned with 
the exact status of a variable--assigned or unassigned, 
bound to a reference or not. In particular, the oc- 
currences of a variable in a pattern do not need any 
prefixes to indicate the status of the variable at that 
point in the pattern matching process. In short, the 
logical variable incorporates much of the power of 
assignment and references in other languages. This is 
reminiscent of the way most uses of goto can be ob- 
viated in a language with well structured control 
primitives. 


Program and data are identical in form. Clauses can 
usefully be employed for expressing data. 


There is a natural declarative semantics in addition 
to the usual procedural semantics. 


The procedural semantics of syntactically correct pro- 
gram is totally defined. It is impossible for an error 
condition to arise or for an undefined operation to be 
performed. This is a contrast to most programming lan- 
guages. А totally defined semantics ensures that pro- 
gramming errors do not result in bizarre program 
behaviour or incomprehensible error messages. 


A SUBSET OF PROLOG (SPROLOG) 


For the purpose of this work: we select a small subset of 


Prolog and we will call it Small Prolog (SPROLOG). This sub- 


set only includes some primitive data structures, such as 


atoms and integer numbers. The formal definition of this lan- 


guage is given in Figure 3.1. 


ПЕ) 


20) 


ED) 


SPROLOG also has some restrictions. These are: 


ши стещтс тета по ос КО таре. “їйї restriction 
eliminates the possibility of violation of procedure 
naming rule in Pascal, 

Recursive definition is not allowed, 


Only nonnegative integer numbers can be handled, 


Зр 















































og» ::= <rule or fact> («rule or fact»J 
or fact» ::- «rule» | «fact» 
::= <head> :- <body> . 
::= <head> . 
::= <prefix> 
::= <structure> | , <structure>} 
::= <infix> | <prefix> 
::= <а59> } «expression»? | 
. ::= Суагіаріє» 15 «arithmetic» 
«expression»? ::= <relational> 1 «arithmetic»? 
«relational» ::= <arithmetic> «rel operator»? 
| | <arithnetie> 
«arithmetic» ::= Xvariable or number»? 
«arithmetic» $: = Kvariable or number»? «art operator» 
| «variable ог number» 
«prefix? ::= <procname> | 
«prefix» :: + <procname> ( «variable or constant» 
( , «variable or constant») 
< ргоспаше» :: + «small» "n 
<procname> ::= <small> «letter or digit» 
| {<letter or ПЕЙ 
«variable or number»? 2:- <уагтаһр1е> | <number> 
<variable or constant» ::-2 «variable» <constant> 
<variable> ::= <capital> m" 
«variable» ::= <Capltalo (letter or  aigit> 
«терРепню вині о мені 
«constant» ::= «atom» | «number» 
«atom» ::- «small» Мас, 
«atom» ::= <ѕша11> | «letter or digit» 
C CE or digit») 
«number» uuu = d {<digit>?}. 
<letter ог digit> ::= letter> | e 
<letter> ::- <«сар1 а! > 1 <small> 
<capital> 23/2 AIBICIDIEI IGI HIIIJIKILIM 
N |O|P 9 Е|5{Т АН W £i Z 
<5па11> = ас ejf 9 hiijjjkiil|n 
M nio В 4 ris 51% міхіуі?2 
с цаца» ::= 1121318151617181910 
<геј орегађог> ::= < > = <> 
«art operator»? ::= + = * | / 
Figure 3.1 SPROLOG in BNF Form 
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4) Any variable or atom may have at most ten characters, 


5) Any program must have only one query clause which is 
defined as the last rule of the progran, 


6) Any predicate name placed in the body clause must 
have been declared before as a head clause of a rule. 
This eliminates taking into consideration the "for- 
ward" declarations inherited in Pascal, 

7) Arithmetic expressions may have at most one operator. 


piese restrictions make this implementation easy. But, 


we lose the beauty of the problem. 


D. DESIGN 

We will develop our work by using the following example. 
Suppose we have the Prolog program illustrated in Figure 3.2. 
Our job is to translate it to a Pascal program. We consider 
that all head clauses of Prolog correspond to the function 
Seerarations.in Pascal. That is, "pop", "area", "density", 
"ans" and "query" are all names of the functions which will 
be called by the calls that are placed in the body clauses 
anywhere inside the program. The type of these functions is 
always boolean. If the body clause does not exist, this 


means that this function will not call any other functions. 





pop (china,8 
рор (1пата, 
шп 
area(india 

density (C,b 
ans (C1,D1,C 


N 
N^ ~ LICON) 


ae aE ES > __ D аана ДЕ рача рар лр о Е т. ооо 


Figure 3.2 Sample PROLOG Program 
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The transfer of parameters defined in the Prolog program 
will cause a little problem, because Prolog does not force 
the programmer to declare them with Ore sane number and the 
same type. For example, "density" might be declared with 
Many number of parameters in various places in the program. 
This leads us to use pointer variables that point to the for- 
mal and actual parameters which are stored in the storage 
area. This idea facilitates parameter passing among functions 
without using variant record declarations and also prevents 
the probable translation errors which may result from some 
features of Pascal, such as "strong typing" or "type 
checking". 

We need also to inform the callee about the caller's 
name for the following reasons. As shown in the sample pro- 
gram in Figure 3.2, the same name may refer to several call- 
ees which may have different numbers and types of parameters. 
This information will provide a basis for the matching and 
binding processes. 50, to implement this idea, we will enum- 
erate the names of functions and their parameters in the 
following simple way. 

In Prolog source code, enumerate all names from top to 
bottom and from left to right. In the same way, give also a 
sequence number to all parameters. So, in the above example, 
"pop" will have number 1 and the last name "ans" will be 
numbered as 15. Also, the actual parameter of the first "pop" 


Clause, which is "china", will be the first parameter of RIRS 
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program and the formal parameter "T" of the "ans" will get 
number 38. Notice that "is", ">" and "<" in the program are 
not user defined functions. These are predefined and we will 
use them from the library. 

We already have some problems. There exists more than 
one alternative clause for the names "pop" and "area". It 
is impossible to declare two functions with the same name in 
Pascal. To solve it, we rename the first "pop" as "popl" and 
the second one as "pop2". Also, we need to define another 
function whose name is "pop" which will drive all the alter- 
natives according to a logical sequence. This process will 
be applied to all functions which have alternative clauses. 
We continue our example in the following tables. 

Шишо сарје (“Procedure Table”) includes some infor- 
mation about the functions (see Figure 3.3). The leftmost 
column is the function number. This number will be used 
а the execution phase, when needed, to identify any func- 


tion. The second column shows the name of tne functions. 
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Figure 3.3 Procedure Table 
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But, ">" or "<" can not be legal Pascal) function пашези 
Later, we can change them to "greater", "lessthan", etc. 

The third and fourth columns are all pointers. They point 
to the "Parameter Table" (see Figure 3.4) for the associated 
oarameters of that function. Because the function "query" 
does not have any parameters, its parameter pointers do not 
point to anything. Оп the other hand, the last column shows 
the alternative clauses of that function. For example, the 
functions "pop" and "area" have two non-zero alternative 
pointers. In other words, this means that these functions 
have two alternatives. 

The information about parameters is shown in the Para- 
meter Table (see Figure 3.4). The parameter type represents 
the type of the parameter. Variables, integers and atoms 
will have the numbers 1, 2 and 3, respectively. However, 
other numbers which are greater than 3, indicate the exist- 
ence of arithmetic expressions. The fourth column of the 
table points to the associated function for those parameters. 

The last table (see Figure 3.5) renames the alternative 
clauses. If we have several functions with the same name, 
we rename then and then we will be able to use them with 
these names. In fact, these three tables are not so simple 
as shown in the figures. The reader may refer to the sample 


programs given in the appendices. 
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Figure 3.5 Alternative Clauses Table 


E. MEMORY MANAGEMENT AND PROBLEMS 

All variables and constants may be handled by using the 
dynamic storage feature of Pascal. It seems necessary to 
describe four kinds of records to keep a parameter in a heap 
area. 

The first record ("Procedure Record") contains enough 
information about the rule number, function number, and para- 
meter number. Also, its last item points to the "Parameter 
Specification Record". This record keeps the parameter type, 
parameter name, if any, and it also has a cell pointer when 


indicates the related Cell. A Cell is itself a pointer which 


points to the "Value Record". This record saves the value of 
that parameter. The last one has to have the variant record’ 
Specification to store various types of parameters. If a 


parameter does not have value, namely an uninitialized vari- 
able, the Cell pointer will met show any "Value Record". 
To handle arithmetic expressions, che Cell pointer will 


point to the associated binary tree for that expression. ЩО 
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leaves of the tree are also pointers that point to the re- 
lated "Parameter Specification Record". Also, the same idea 
can be applied to the list data structures, because it is 
possible to represent the list as a binary tree. 

The variables that are local to a rule will share the 
зате storage area via the "Specification Pointer" defined in 
its "Procedure Record". This is also true for all the con- 
stants of the Program. The same constants, like "china", 
will be stored only once. The associated cell pointers will 
provide the way for the common storage. 

To bind a value to a variable, the Cell pointer of this 
variable will point to a "Value Record" which is determined 
at the time of matching process. This process will create a 
long chain during the execution of the program. Also, the 
reverse process is necessary when backtracking and resatis- 
mang Occurs. At this point, our design and, finally, this 
thesis is completely unsuccessful. Due to the storage manage- 
ment and the complexity of execution phase, we restrict again 
SPROLOG so that our implementation will only be able to exe- 
cute the "facts" and one rule which is defined at the end of 
the Prolog program. In this case, this implementation will 
be useful to define and implement relational databases and 
query applications. (Our implementation allows processing 
at most 99 different relations). 

Now we are ready to translate the sample Prolog program 


given in Figure 3.2 into Pascal. Function "pop" and its two 
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alternatives are shown in Figure 3.6. Formal parameters "a 
and "i" which are defined as integers, are function numoemer 


The parameter "a" is the number of the caller as described 


in Figure 3.3. The other parameter "i" corresponds to the 
callee's number which is driven in the "pop" function by the 
"Case" statement. The function of the "case" statement 
placed in "pop" is very important. All alternatives clauses 
will be tried by this construction until the "resatisfaction" 
is not required any more or any impossible condition occurs. 

The "match" function included in "popl" and "рор2 85 
the library function. The unification and binding process 
will be made by this function. If its returned value is 
true, this means that the "binding" occurred after the 
"matching" process. 

The function "area" and its alternatives "areal" and 
"area2" are shown in Figure 3.7. These functions have been 
constructed with the same way as in the example "pop". 

Before describing the other functions, we want to note 
the importance of "accept" function shown in Figure 3.8. 
This is the general driver for all functions. It accepts 
any function name and its number as arguments and calls all 
possible alternative functions. For example, to call "popl" 
or "pop2", "accept" creates functions numbers which will be 
used by the "case" statement of the "pop". If any returned 


value is “true” during the execution of "for" loop, "acces 


will also return a "true" value. As you noticed, the fires 
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function popí(a,i:integer):ELkoolean; 


begin 
а; popi:-natch(a,i); 
en 
function рор2 (а,1:1пћедег) : Гоо1еап; 
Бе 
P pop2:=match (a,]) ; 
en 
function pop (a,isinteger) : boolean; 
begin 


1:55 i of я 
:рср:=ро 2 
2:Вер:=рор2 (а; ii 


E 


Figure 3.6 Function POP 








function area3(a,i:integer):boolean; 
begin 
à: arca3:-match(a,i); 
en 
function area4(a,i: integer) :boolean; 
begin 
а: areal:-match(a,i); 
en 
function area (a,i: integer) :koolean; 
begin 
case i of и 
З:агеа: <агеа 3 а |; 
4 :агеа:=агеац : 
end; 


Figure 3.7 Function AREA 


4l 





function aC ce eae name (a, jz: integer) 
whe ean;a, js integer): :boolean; 
var 1:integer; 


$ in н to last (a) do 
tins RI en then leave; 
name(a,1)) th 
ре їп | 
proc (. а. . ПОМ : =50СС (1.); 
accept:- rue; 
return; 
end; 
end; 
accept:=false; 
rese DONNE 
end; (* accept *) 





Figure 3.8 Function ACCEPT 


job of "accept" is to try all alternative clauses. If there 
are no more alternatives to be resatisfied, it returns 
"false". The functions "first" and "last" determine the func- 
tion numbers of alternatives for any caller function. The 


function "resetit" will reset the numbers of alternatives 
for the future use. 

The structure of the function "density" (see Figure 3.9) 
summarizes the resatisfying and backtracking processes in- 
herited in the Prolog program. If there is any "resatisfac- 
tion" request, the execution sequence has to start from the 
rightmost clause to leftmost clause of the Prolog program. 
Also, if there is a need for the backtracking, this process 
also will begin from the right to the left. 


The logical variable "resatisfy" in the "density" func- 


tion is a global variable to the program. Its job is to 
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function ас” sinteger) : boolean; 
шого) 6,7,8,9 
begin 

E M latior) then 


Ek 8 | 
goto 4: E 


nd; 
6:11 piaeggpt zop«6. ,à)) then goto 7; | 
И: а: (ассер* (аг ) then goto 8; 


"nu n) then goto 99; 


Sud accept(is then goto 9; 
а вені добо 99; 
Ereak ( 7): 


ої 
9:if En then 
begin 
density:-true; 
return; 


end; 
99:density:-false 
end; 


Figure 3.9 Function Density 


determine if the context of "resatisfaction" exists. If it 
does, then the existing links for binding variables are brok- 
en by the "break" and transfer goes to the last function cor- 
responding to the last clause of the Prolog program. In the 
"density" example, transfer will go to statement labeled 8, 
if the "resatisfaction" occurs. This transfer will cause the 
nection "is" to be called. 

All "goto's" in the "density" function simulates the 
"backtracking" process of Prolog. " noticed, after trying 
all possibilities for the "pop" function, transfer goes to 
шав Statement Of the “density” function. Otherwise, if 


Шищайвегпавтуе Of "pop" returns the “true” value, then 
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transfer passes to satisfy the next function corresponding 

to the next clause in the Prolog program. If this function 
can not create a "true" yalue, now the "backtracking" process 
begins. The transfer goes to the last tried function, if the 
last one has already any alternative to be satisfied. This 
checking is made possible by the "possible" function. 

The execution sequence may reach to the last "if" state- 
ment (in "the density example, the statement labeled 9). 

The function "okay" checks the returned values of called 
functions in that function (namely, in the "density" example. 
They are "pop", "area" and "is"). Finally, it evaluates 
them and causes to be assigned a truth value to that function. 

The function "ans" (see Figure 3.10) is also created by 
the same logic described before. It calls some system func- 
tions such as "greater" and "lessthan". These correspond to 
the Prolog clauses which contains the relational operators, 
">" чаша "< "авва и а: 

The function "query" (see Figure 3.11) corresponds to 
the Prolog query given by the user. Its construction is not 
different from the other functions described so far. The 
actual execution chain starts from this point. Eventually, 
the value of this function will be the answer to the user. 

Finally, the main body of the Pascal program is illus- 
trated in Figure 3.12. Its importante r- aure is коел 
strate the starting point of the resatisfying process. The 


user may request to resatisfy his goal, namely he enters ";". 
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function 43513 ‚1: 10%е а аб 
Mabel 10,11,12, 13,19, 
редіп 

if resatisfy then 

begin 

esa oe s 
goto 

end; | 
ПО: Е E a a)) then goto 11; 


oto 
21: if ( (accept (density. 1 then ое 12: 
irf Tor ossible (1 )) AL goto 99; 


oto 10: 
then goto 13; 
gno. 29. 


tn. 
Но 
on 
|- (р 
Фр 
— Ct 
— (D 
1 
—- 
еы 
о 
г» 
(oe 
а 


E ( (lessthan,13,a)) then oto 14; 
sible(12)] then goto 99; 


oe" OTe" Oro ~ 
ис += = 


14: ЕС окау (а) then 
редіп 
ans:-true; 
return; 


end; 
99:ans:=false 
end; 


—_— 





Figure 3.10 Function ANS 






function цесу (а, i:integer) :boolean; 
label 15,16 
begin 
lf resatisfy then begin break(15); ра 15; end; 
Ed E Ессе э га) then goto 16; 
16: E o okay (a) then 
Еедіп | 
ге true: | 


return; 


end; 
99: query:=false 


a ae Se ee ee пиши eee ee a Eee ee ee a aa ee ee eS 


Figure 3.11 Function QUERY 
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=. ЕН 


о 


begin 
resatist: EXECUTION BEGINS: 0); 
resatis Ly: -false; 
Sign:='" 
а (5190=';') do 
begin 
na Ec then 
реді 
песвасе(" yes',0) ; 
rint; 
ermin term); 
readln(term,sign); 
close (tern) ; 
besa tie aye (5ш B=); 
а Е ЕРЕ then 
message RESATLSEYING СОЛТ ај 
else TET EXECUTION ENDS... , б); 
continue; | 
епі; А 
message(str 
па НИ EXECUTION’ Láps....* 0) 5 
halt; 
end; ” | 
{ Mains) | 
3 





Figure 3.12 Main Program 


Then the global variable "resatisfy" is set to the "true". 
Otherwise execution ends. If "query" does have "true иси 
after the execution, the procedure "print" prints the values 


of variables which are declared in the "query" 
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ТУ.  IMPDEMENTATION AND TEST 


A. SOME FEATURES OF PASCAL/VS AT NPS 

Release 2.1 of Pascal/VS has several differences from 
"Standard" Pascal. Most of the deviations are in the form 
of extensions to Pascal in those areas where Pascal does not 
have suitable facilities. We summarize some of them in 
Appendix A so that the interested user may understand the 
application programs given in Appendix B without having any 


surprise. 


B. IMPLEMENTATION 

This implementation involves mainly two distinct phases. 
The first phase is the compilation process (compiler or 
translator) and the second one is the executing process 
(executor). The Translator accepts source Prolog and trans- 
lates it to Pascal source (object program) by including the 
necessary source and run-time routines. Then, the object 
program is compiled and executed under Pascal/VS system. 
All necessary files are handled automatically without re- 
quiring any user intervention. The main difference from a 
standard Prolog is that the user is asked to place his query 
as the last rule of the program. This rule must begin with 


the keyword "query". 
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The compiling process consists of three phases. These 
are: 

1) Lexical Analyzing 
2) Parsing 
3) Translation 

Compilation begins with a source Prolog file named 
"SOURCE PROLOG" which is created as a CMS file. (See Appen- 
dix C for a sample source program). The access to this file 
is sequential by the compiler. The token sequence is emitted 
by the lexical analyzer. If there is no rejected token, the 
parsing phase begins. The parser considers the context of 
each token and classifies groups of tokens such as variables, 
atoms or integers and also structures (rules, head or body 
clauses). For our purposes we introduce the main driver of 
the parsing process (see Figure 4.1) for the SPROLOG whose 
formal definition has been given in Chapter 3. The user may 
examine the other parts of the Parser by referring to the com- 
plete program which is given in Appendix B. 

The product of parser and lexical analyzer are the tables 
described in Chapter 3 and also given in Appendix F, G, and 
H. The tables have two main tobs. First of all, the trans- 
lator will use them for translation purposes. In fact, they 
are all parameters to be passed from user source program to 
object program. This makes explicit their second job. 
Namely, the executer embedded in the object code will use 


them during the execution. 
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MEN | 


function proc:boolean; 


laLel 
begin 


al: 


end; 


a1; 


if not(prefix) then 

begin А 
result:-t(.tokenindex.).name; 
1:=t(.tokenindex.).linenun; 
message 
(error... Structure expected.. 
ijistr (result) ,1); 
proc:=false; 
retuzn; 

end; 


if point then 

begin 
proc:=true; 
return; 

ema; 

кешесі: 


if not(iff) then 

begin | 
result:-t (.tokenindex.).name; 
i:-t(.tokenindex.).linenum; 
message 
ви ловко Меж!" (expected. . 
{[]Jstr (result) ,1); 
proc:=false; 
return; 

end; 


if not(structure) then 

begin | 
result:-t(.tokenindex.).naue; 
1:-t(.tokenindex.).linenum; 
message 
(COTO. -< Structure expect ed. . 
MSti: esult),i); 
proc:=false; 
return; 

end; 


if pcint then 
begin 
proc: =truec; 
return; 
end; 
reject; 


if comma then 
goto al; 


proc:=false; | 
result:-t(.tokenindex.).name; 
i:-t(.tokenindex.).làinenun; 


1 


1 
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message 
(error... Structure Бресе * 
i Istr (result) ,i); 
(CPT OC X) 
Figure 8.1 Main Driver for Parsing SPROLOG 
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As the last step, the translator translates the user 
source Prolog into Pascal. The mapping process between 
source and object program is given in Chapter 3. The assump- 
tions and restrictions we have made before, make Pascal's 
"forward" declarations unnecessary. Also, the passing of 
integer pointers as parameters between the procedures pre- 
vents exhaustive variant record declarations. The probable 
recursive declarations made by the user in the source programs 
are detected in this phase by using the stack. Also, it is 
impossible to translate undefined procedures into Pascal. 
This process is handled by using the stack as well. 

If there are no compiler detected errors, the Translator 
Creates a Pascal source program (see Appendix C) which is 
called "USER PASCAL". During the creation phase the system 
library is used for the predefined procedures. After the 
creation of Pascal source code, the Pascal/VS compiler is 
called and "USER PASCAL" is compiled and executed. This is 
an interactive session. If the programmer is not content 
with an answer to his question, he can initiate backtracking 
himself by typing a semicolon when Prolog informs him of a 


solution. 


C. TEST, EFFICIENCY CONSIDERATIONS AND SELF-CRITICISM 

A sample program that has been compiled and translated 
into Pascal is given in the appendices. All these applica- 
tions may be considered as relational database applications. 


The conjunction of many subgoals allows the user to define 


many queries. 
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This implementation does not make as efficient use of 
time and space as any commercial Prolog compiler or inter- 
preter. The translation phase and compiling object code are 
all time consuming processes. Object code could be any as- 
sembly object code rather than Pascal, because Pascal/VS is 
also a slow compiler. Оп the other hand, it is apparent that 
a Prolog compiler spends a lot of its time backtracking. 
Backtracking is considered an unusual and expensive event in 
most language systems. Since in Prolog backtracking is the 
rule rather than exception, much of the challenge of Prolog 
implementation is the development of more efficient back- 
tracking mechanisms. [Ref. 7] 

It seems that the most important point of this work was 
not to write an efficient compiler. Rather our aim was to 
find a mapping system between Prolog and Pascal. But, this 


process also should be developed. 


SIE 


V. EPILOGUE 


In this implementation we tried to translate a small sub- 
set of the programming language Prolog into Pascal. We dis- 
cussed a mapping algorithm and we pointed out some difficulties. 

In the literature there are many Prolog implementations. 
Many of them are interpreters (see Figure 5.1). For some im- 


plementations the reader may refer to references 8 and 9. | 





Also, for the memory management of Prolog, see reference 10. 
mp c ee px ни» | 
| 
Danes ccce NN authors o . | зіпріеленоа зи 
ЕКОТ СС F.M. Pereira MACRO aene ) 
(Edintkurgh | F.C.N. Pereira Dec Tops-10 
Uni v.) L.H.D. Warren - 20 
озсо ВИГО а 
PROLCG G. Battani 
(Marseille | | FORTRAN 
.Univ.) | L-.|..2:,üelon$ | Е M 
FRCLCG J.F. Sowa 
(IBM) VM/CMS 
= ИВ SONI И 
FFOLCG/KR | | ДЕ 
(Iokyo | E. Nakashima UTILISP 
Univ.) | 
| 
ке a === а СИ J 








Figure 5.1 Prolog Systems 


So let us review how one might set about constructing a 
compiler. 


Initially, the picture is just a black box with 


source programs as input and correctly translated object 
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programs as output. The first consideration is to decide how 
the output is related to the input. It is natural to examine 
the structure of the source language and to devise for each 
element of the language a rule for translating it into tar- 
get language code. These rules form a specification of the 
compiler's function. The final and generally more laborious 
stage of compiler construction involves implementing proce- 
dures which efficiently carry out the translation process in 
accordance with the specification. 

The SPROLOG implementation uses the primitive data struc- 
tures, such as integer numbers, atomic constants and simple 
variables. List and tree types of data structures have not 
been considered. In the design phase we tried to give some 
idea for these structures. This requires efficient memory 
management processing. From this point, this thesis should 
be developed. 

Backtracking should be considered as the most important 
fact in Prolog implementations. In particular, the existence 
of the long chain of variables during the execution phase, 
requires much more efficient compilation techniques. 

We must sometimes take into account the way Prolog 
searches the database and what state of instantiation our 
goals will have in deciding the order in which to write the 
clauses of a Prolog program. The problem with introducing 
cuts is that we have to be even more certain of exactly how 


the rules of the program are to be used. For, whereas a cut 


53 


when a rule is used one way can be harmless or even beneficial, 
the very same cut can cause strange behaviour if the rule is 
suddenly used in another way. However, the cut operation 
would be introduced by defining a function to our implementa- 
tion. But, we desired to give importance to relational data- 
base applications. For this reason, this operation is missing 
in this implementation. 

Pascal has been chosen as an implementor language. The 
type checking and strong typing implies that careful design 


and planning should be considered in the compiler writing 


process. In particular, this language does not allow one to 
define twice names in the same context. Prolog does not re- 
strict this. So, we renamed the user's procedure names when 


translating them. However, Ada does allow one to define 
procedures with same name (but with different number of para- 
meters) in a given context. This language would provide much 
more features for this implementation. 

As a conclusion we want to emphasize that the programming 
language Prolog itself also has more advantages than other 
existing conventional programming languages for writing a 
Prolog Compiler and also other compilers. Many of the ad- 
vantages should be clear froin the discussions that we have 
made so far. It is important to take into account, not just 
the compiler which is the product, but also the work which 
must go initially in designing and building it and into sub- 


sequently maintaining it. 
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To summarize, Prolog has the following advantages as a 
Ponberler-writing tool: less time and effort is required, 
there is less likelihood of error and the resulting imple- 
mentation is easier to maintain and modify. Here is the 
last and most important sentence of this thesis: Prolog will 


be the programming language of the 20th Century. 


55 


SOME FEATURES OF PASCAL/VS 


ШІ Separately compileabie modules are supported with the 
SEGMENT definition. | | 
. "internal static" data is supported by means of the 
"Static" declarations. : 
) "External static" data is supported by means of "def" 
and "ref" declarations. Eu. uw | 
‚ 4) Static and external data may be initialized at compile 
time 2 means of the "value" declarations. 
. 5) Constant expressions are permitted wherever a constant 
is permitted except as the lower bound of a subrange type 
definition. | 
6),The keyword "range" ща be prefixed to a subrange type 
О 


definition о permit the wer value То Бе а constant 
expressicn. . . | | 
7). А varying length character strinq is provided. It is 
called STRING. The maximum length of a TRING is 32367 
Characters. | 
The STRING oferators and functions are CONCATENATE 


8 
LENGTH, SIR, SUBSTR, DELETE, TRIM; LIREN, COMPRESS and 
«І e 
9) A new predefined type, SIRINGPTR, has been added that 
permits the programmer o allocate strings with the NEW 
procedure whose maximum size iS not defined until the 
invocation of NEW. | | | | 
0 A new parameter passing mechanism is provided that 
allows strings, to be passed into a procedure or. function 
without requiring the programmer to specify the maximum size 
of the string on the formal parameter. B 
11). The MAIN directive perui the programmer to define a 
procedvre that Do be invoked from a non Pascal environrent. 
Files may be accessed based on relative record number 
(ranaom access). | . 
13 The tagfield in tne variant part of a record may be 
anywhere within the fixed part of the record. | 
E A parameter passing mechanism (const) has been defined 
which guarantees tnat the actual parameter is not modified 
yet dces not require the copy overhead of a pass by value 
mechanism. | 
Та" "Continue" and, "return" are new statemrerts 
that permit a branching capability, without using a "gotc". 
16) Labeis may be either a numeric value or an idertifier. 


7 "Case" Staterents may have a range notation on the 
мы Statements. : . 

13) An "otherwise" clause 1S provided for the "case" 
Statement. | . | | 

19) The variant labels in records may be written witha 
БӘЛЕ notation. 

20) Constants may ke of a structured type (namely arrays 


and records). 
Ihe other features which are not included here, are not 


directly related to cur application. The concerned user may 
refer to Pascal/VS Manuals at NPGS. 
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APPENDIX B 
TRANSLATOR FOR SPROLOG 


| rogram npro(input,output); 
Frog P 0801р put) 


CcrSt max-1 
type trec=record. 
linenum; integer; 
relnum:integer; 
паше:аірла; 
БЕУ ШЕБІ СЕСЕЕ > 
locality:integer; 
end; 
ttype-array(.1..max.) of trec; 
procrec-record 
rulenum; integer; 
relnumsinteger; 
name:alpha; 
РЕКЕ ЕЕЕ, 
reiàtivity:integer; 
pointer!:integer; 
рон ур езет; 
begin:integer; 
bend:integer; 
abegin:integer; 
aend:integer; 
yesno:integer; 
Callee:integer; 
as: ınteger; 
Ie:  INtEgeEL; 
now: integer; 
pon:integer; 
end; 
parrec=record 
rulenum; integer; 
relnumsinteger; 
name:alpha; 
т шш еле, 
ocality:integer; 
роштеле псејев; 
п©уре:1пїєдег; 
nbind:integer; 
nmatch: bcclean; 
end; 
var t:ttype; р . | | 
line, okenindex,tbound,i,pend,pbegin:integer; 
SOOT ea Ds 
ate,time:alfa;result:alpha; 
lexerror,tokenerror: boolean; 
rocfile,pararfile а ее; 
ibi,lib2,lil3,libl,user:text; 
px,tx,ax,Gg,ret:intéger; 
ргос:агга {51..пах.) Оор о ргосгес; 
тгаг:аггау{.1..шах„.) ог раггес; 
mibp:array(.1..Dax.) of procrec; 


— РЧ 
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NEUE тат 


procedure cms(const parmstr:string; var rc:integer);j; 


procedure message(const msg:string;valint:integer); 


external: 


Var серп: сехи; 
begin 


end; 


termout (term) ; 
if (valint»0) then 
tegin, г 

writeln coe te eee 


writeln(listing,valin 


en 

else if (valint=0) then 

regin. 
writeln (term,msg) ; 
writeln(listing,msg); 

end 

else 

regin, , 
writeln(term,mnsg, (-valint)); 
writeln(listing,msg,(-valint)); 


end; 
close(term); 


function strlen(ccnst instr:string):integer; 


таг. 


chset:set of char; j,isinteger; 


begin 


diset:=(. 10". .°9) MUS НЕ 
chset:=chset+tnot(chset) ; 
chset:-chset-(.' '.); 
Еог 1:51 to length(instr) do 
tegin M. | | 
if (instr(.1i1.) in chset) then 

а j:7-succ(j); 

end; 


strlen:-2j; 
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procedure checktckens; 
const naxtoken=17; 

Теда1 + океп- 16; 
Туре 


rec= record 
res:alpha; 


end; 
var ccc rua enaa) of integer; 
tokens:array(.!..maxtoken.) of alpha; 
totaltoken:integer; 
tokenttte: text; before:alpha; 
hashbound, j,reitoken,rule:integer; 
source:istring(70); 
outfile:file cf rec; 
pasfile:text; 
procedure taketokens; 
Var 
taken: alpha; 
ummy:integer; 
begin : | 
reset (tokenfile,'name=rptoken.input.a') ; 
үш not (eof (tokenfile)) do 
egin 
: readln(tckenfile,dummy,taken); 
taken:=1trim(str(taken)); 
tokens (. dummy.) :=taken; 


end; | 
р close(tokenfile); 
end; . і аи 
function identifier:boolean; 
var idset:set of char; 
_isinteger; 
tegin, 
Ше aa zT; TOOT), 
зен геъщфе (е Пее зо idset ) then 
begin e c 
identifier:=true; 
return; 
end; ._. 
identifier: =true; 
for i:=1 to strlen(str(result)) do 


begin Р е 
| if (not(result(.i.) in idset )) ther 
begin  . . 
identifier:=false; 
return; 
end; 
end; 


39 





і = ње gatan Sae а capas 6E pump aam apap ARP cee AE D G SOAS cp EIU clus QUIS ames ndpeum UNIO ,. cen dnd ccrqut liunc , dung Bernd o ap Reo , ties боза ЛАНА, eee НИ RED cns VibuÓ once РЦ 


function atom:boclean; 

var idset:set of char; 

i:integer; 

tegin, 

ldset:-[(. ua TZ": 

4: atom:=(result(. 1. 5 in idset); 
end; 

functicn number: kcolean; 

var numset:set of char; 

i- integer; 


numset:=(.'0'. 21975 
number:-true 
tore iz=1 to strlen (str(result)) do 
е 
p if (not (result (.1.) in numset )) then 
begin 
numbter:=false; 
return; 
„еп; 


і 
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| ——————————————————————Ó n | 


MM ——— "_______________- 
procedure whichtcken(i:integer); | | 


var j,ln:inteqer; tokenfound:boolean; 
Static hashindex:integer; 
value hashindex:=0; 
begin 
tokenfound:=false; 
гог) = со maxtoken do 


begin 
темен Гокепв (- 15) then 
egin 
> hashindex:-succ[(hashindex); 
hashtable(. hashindex.):-7j; 
if (j>iegaltoken) then 
begin | | 
ln:2t(.i.).linenum; 
message 
(‘erroneous token: '] {str (result),1n); 
tckenerror:=true; 
end; 
tokerfound:-true; 
leave; 
end; 
end; 
if (not(tckenfound)) then 
begin 


| 
| 
| if identifier then 
begin | , 
hashindex:-succ(hashindex);j; 
hashtable (.hashindex.):=succ (maxtoken) ; 
tckenfound:=true; 
| end; 
| 
1% 


end; 
ЈЕ (not(tckenfound)) then 
begin 


if nugter then 

begin . | 
hashindex:-succí(hashindex); 
hashtable (.hashindex. 
:-succ(succ (maxtoken)); 

Б tokenfound:-true; 

end; 


end; 
if {not (tokenfound)) then 
begin 

lf atcm then 

begin | | 
hashindex:-succ(hashindex); 
hashtable (. hashindex. 
: -succ (succ (maxtoken) ) ; 
tckenfound:-true; 


Е. TILES | Сер SE S PR oL—————R—R———M—————Áá ата (шљиве (ви O, a n ay pu pS fio gy te (Ene neat бити дь аеону (ето 8 р 2-5 IG MÀ € M имама да (ишао 
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end; 
hashbound:-hashindex; 


| if (not(tckenfound)) then E 
редіг 
tokenerror:-true; | 
10-Е (51). linenun; | 
messace 
('error... tokenzzzz-z-» 'j|str(resuJlt),l1n); | 


end; 


Гоа | 


62 


———— >”. 


а аге putfile(i:integer); 
egin 


outfile .res:-result; 
PH 
linenun:=rule; 
E ге! пип: :Sreltoken; 
end; 
prccedure rejecttcken; 
var 1, j:inte БІ Е: ittype; t£: boolean; 


opset: se char; 

begin 
opset:= ци: 1—1 Ти 5): 
Ване 13 
for i:= b (tbound- 1) do 
tregin 


tf: палес) 
Е ӘЛІШ и паце=':=") 
ЈЕ tf when 

t(.1.).name:;-' "|; 


end; 
22 1:51 to tround do 
pns eee = Rer te: 1.).папе-" ")); 
tf the ` ' 
BSE in 
D ка 
(53 =t(.l.). namne; 
end 
erd; 


(- tbound.).linenum); 
tt tbound+1. ).name:z!. i 
à; tbound:=succ (tboun4) ; 
en 
rule:=1:; reitoken:=1; 
for 1:21 to tkound do 
regin 
result:i-t (.1.).папе; 
умение | тъ) ао 
begin E. 
if (identifier or 
atom Or 
а (. К. t) 
resu in opse 
then lccality 1) Е ) 
else. localit?:2-1; 


Lp еп иль ВЕН сони ———Á A Á———————M— n ————— ——— —€———Ó— án ——————— I ——— MÀ сы. lp 
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writeln(rule:4,reltokens:4, ', result); 


ti-b; 
ЩЕ (here tbound.).name <> '.') then 
kegin 

message 

end - no, eof? "." assumed' 





А е p————— ——————à— — ———— Án — S ales Sara, 


расле (і : 
result='.'° 
H result-!'.' 
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then rule:=succ 
then reltoken:= 


reltoken: =succ (reltoken) ; 
ИО: 
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ен = 





| Бете puttoker; 


ag зе: 


egin 

before:-result; 
totaltoken:=succ (totaltoken . 
tokenindex:-succ (tokenindex); 
t(.tokenindex.).name:-result; 
tbound: -tokenindex; 

end; (put token >) 

procedure tokenfcund; 

маг 1: integer; 

static proc:integer; 

value ргос:=0; 

begin 
taketokens; 
totaltoken:=0; 


reset (pasfile,'name=source. prolog.a") ; 


rewrite (outfi e) ; 
line:=0; 
while not (eof (pasfile) ) do 
regin 
readin (pasfile, source); 
if (source<>str (' , 
then line:-succ( lne); 
if (source<>str 
then message(source,line); 
source: =ccmpress (source) ; 
-iength (source); 


i: 
while (1<5)) do 
Ьедіп 
token(i, Source (reo е 
т (résult-! ту the 
OC: Езисс | ECCE 
Tf (Éesulte»* mre 


begin 
if (result='- PN then 
if(beforez':') then 
result:zsstr(':-' 
puttoken; 
en 
end; 
end; 
ы 
end; tokenfound*) 
Begin. 


Eefore:<str (tae) | 

Lefore:-str('à 

tokenerror: -falsé; 
tokenfound; 

end; (* checktokens ж) 


SS РИ» приро ЦЕ PRU UR RU ПИЛИ ЗЕ MR SURE SERERE D a) ee ee о 
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| 
| 


ЛІ; 


— 
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госєдиге Le cO е 
Еуре rom carro Mid _. 72) ОЕ integer; 
ptype= e 
name:a zi 


ро ста eger; 
en 
var prec: a ааа Ж ої E TIPS: 
а: аггат ae 275 integer; 


Sob n TU ee cane ttoken: alpha; 
procédure takeexr; 
уеге expfile:text; 1,j:integer; 
egin 
| reset (exp£ile,'name- -exp.input.a1"'); 
242 


while пот (ео (ехр 1 1е)) do 
tregin 
:-succ 


e 
Рог. 3: + о 7 до 

read (expfile,a(.i,j.)); 
гез ШО аиа): 


єп 
end; ады, 
rocedure give; 


egin 

precí(.1.).name:-'*'; 
ргес!. 1. р- пишве- аа 
ргес(.2.) . папє: = -'; 
prec(.2.)-mumbs 55; 
ргес |(.3.) -папе: -" kes 
ргес 222 „пуйЕ:<5; 
precí(.H.).name:-'/' ; 
prec(.4.).-numrk:=5; 
ргес (.5.).паше:=!='; 
рвес |- 22) - DUD: 0; 
ртес(:болљи- плаше = ста 
ргес(.6.). пашіь:-7; 
prec(./.).names=">'; 
prec(.7.).numr:-77; 
ргеспгз стпацпе - 50570. 
ргес | 82 тиште =. 
ргес(.9.) .паше: < !<-"; 
ргес -2.)numb:-7i 
prec({.10.).nare:='d>='; 
prect(. 10.) - пила - 1: 
ргес (- 11.) -паше:- "15"; 
prec(.11.).nuzb:-4; 
ргес(. 12.) .паце:='15'; 
ргеске12.) с питр--4:% 

end; 


ери aim) GRAS от ОДИТ С ОШ оке бань |. заара. comes GENES) зар dip a E y - conos cum fae ae DS eee a) OO oontra НЕОН Јаве варења метра ЕЕ СУКНЮ GRE oe не: 
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function taketoken:alpha; 
begin 
JE а then 
okenindex:- succ (tokenindex); 
П cee ea : 
assert Eu 
if not (null) the 
шак. . tokenindex. ) -паше 


E P 
end; E о *) 

rcce ure reject 

egin 

tokenindex:-pred(tokenindex); 

end; (* reject * =} 
function left:boclean; 

egin 
left:-false; 
if not (null) the 
Е ШО ЕТЕ Т схскеп=* (" Jus 
end; 


function right:bcclean; 


E 
ight:-false; 
= Вор then 
а; rignt:-(taketoken-') *); 
en 


function comma: bcolean; 
egin 
comma:=false; 
if not(null) then 
comma:-(taketokenz',"'); 


ARAM E I— 
o e t7 4 


end; 
function variakle: boolean; 
var idset:set of char: 
qe integer; 
begin 
variable:-fal 
result:-taket 
павен:=(. га. 
if (result (. 
begin 
variable:-tru 
return; 


se; 
oken 
на Ы 
1. ) 


p 
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function aton:boclean; 
var idset:set of char; 
гъз тресе 
begin 
result:-taketoken; 
idset:- (25 3a тата аа 
atom:-(result(.1.) in idset); 


end; . 
functicn number: Ecolean; 
var numset:set of char; 
— Ic c mEegese 
begin 
numset:2[(.;' 0E 
number:-true; 
result:-taketoken; 


for i:=1 to strlen (str (result) ) do 


begin 


if (not(result(.i.) in numset )) then 


begin 
nunLer:-false; 
return; 
end; 
end; 
end; . 
functicn varorconst:boolean; 
begin i 
if variable tken 
tegin | 
t(.tokenindex.).ttype:-21; 
varorconst:-true; 
return; 
end | 
else reject 
if number then 
tegin | 
t(.tokeninrdex.).ttype:-2; 
varorconst;-true; 
return; 
end | 
else reject; 
if atom then 
regin | 
t(.tokenindex.).ttype:-3; 
varorconst:=true; 
return; 
end; 
varorconst: =false; 
end; 


68 
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= 
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function iff:boolean; 
begin 
iff:-false; 
if not (null) then 
1ЕЕ: - (Гаке!оКей-!:- 1); 


End; . 
function procname:boolean; 
begin 

procname:-atcr; 
end; . . 
functicn point:boclean; 
begin . 

point:-false; 

1f not(null) then 

E point:-(taketoken-z'.'!); 

end; . 
function prefix: Еоо1еап; 
Harel al: | 
var local: integer; 
begin 

1оса1:=0; 

if not(procname) then 

kegin г 

prefix:-false; 
return; 


end; 
if not(left) then 
tegin 


reject; 
local:=0; 
t(.tokenindex.) .ttype:=4; 
prefix:=true; 
return; 
end; | 
| бло оли СРИ 
al: if not(varorccnst) then 
tegin . 
prefix:-false; 
return; 
end; 
local:=succ(local); _. 
t(.tokenindex.).locality:-local; 
Ее then 
regin : 
prefix:-true; 
return; 
end; 
reject; 
if comma then 
qoto al; 
pretix:=false; 
end; (* prefix *) 
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pee —————— Á————— "— = ee et GR MA—————ÁÓÁ nc ee GS — — — — M — ————— M— À D — ny Be he 5 aes Coe Gee co Bete eee дол 


— аьа но ecm Gi Ep ER CS ae, Ca Simi I ny GD eine) PT Se CS HTS CINEERS GENI. 5c Cunt НЙ АР 


function Oe Pre See пех поства а сащ, 
var cex,f:xtype; 
procedure convert; 
var i,j,ix,cindex:integer; 
tegin 4 
for 1:=1 to 7 do 


сех (.1.) :=0; 
for 1:=1 to 7 do 
tegin Е | 
1E Е» then continue; 
ог 1:21 to 12 do 
begin . 
1х:=1п0ех (.1.) . 
if (t(.1x.).name = prec(.j.).name) then 
begin 
сєх (.1.) :-prec(.j.).numb; 
leave; 
end; 
end; 
end; 


lobal:-false; 
ОГ 1:51 to 7 do 
гедіп _ . : 
тү аел 0) then continue; 
1Ғ (сех (.1.)>0) then continue; 
tokenindex:-inex(.1i.); 
if variakle then 
begin : 
t(.tokenindex.).ttype:=1; 
сех (.1.):=1; 
continue; 


end; 

if number then 

begin | 
t(.tckenindex.).ttype:-2; 
сех (212) = 
continue; 


епа; 

if atom then 

begin : 
t(.tckenindex.).ttype:-23; 

сех (.1.):=3; 

continue; 

end; 
end; 
glokal:=true; 

end; (* convert 1) 


an няню eg DEIR NR A ER GN RRR ER a RIES (шш зола H інн A i ETS! SR a 


Би ст _ ER GE I ES EES ES SS as ee ee 
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| function check:bcclean; 
var isinteger; res:boolean; 
begin 
res;-true; 
{ог О do 
Гедіп i . 
pes Lc su and res; 
if not(res) then leave; 
end; 
check;-res; 
end; . 
function send:boclean; 
iar 1, J:integer; 
Гедіп 
send:-false; 
for 1:51 %о 80 до 
regin 4 
for un to Med j.) 
e € та el, * ? 
at check ЕЕ ы 
begin 
send :-true; 
return; 
end; 
end; 
end; : 
begin (* expression *) 
convert; 
exrpression:-send; 
end; (* expressicn *) 


» 
Тм ЯЙ 


AL 





Г------ a ЕКЕ А АЕНА аара ааа АН 


function infix:boolean; 
larel a1; 
type rc-record 
name:alpha; 
ind:integer; 
end; 
var i, cihdex, niddle,len,j,tm:integer; 
ex:xt 
legal, уреа legal2:boolean; 
_to гаггау (.1..8.) Of eres 
begin 
cindex := tokenindex; 


repeat 
1:=succ (1);if (1>8) then leave; 
ttoken:=taketoken; 
чо ШЕ -name:=ttcken: 
tok(.i.).ind:-tokenindex; 

until (ttoken-'.') or (ttoken-',"); 

len:=pred (tokenin ex-cindex) ; 

Ш 2 

for i:-1 to len do 

tegin 


ЕО 12 do 
if (tok(.i.)-name-prec(.j-.)-.name) then 


begin 
tm:-i; 
goto al; 
end; 


a1: qz tin-0) then 
Legi 


to QC MT 
infix:-false; 


return: 
end; 
for 1:51 хо 7 до 
ех (. 2:) 1-0; 
dori 1:51 ко tm do 
regnig 
(tm-i)<1) then leave; 
if 741 hen leave; 
ex (.3.):-tok(.tn-1.). ind; 
j:=pre (3); 
end; 
ior 12-1 to len do 
Ltegin, |, 
ав со») оце leave; 
ех {. ]- оК (2) ind; 
а. 
end; | 


27-41. Үү 


нн SESS Ф SE A A ERE Goa ES | EE EO eae le a a å солынан» 
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a ee 


оссо Сараар ааа арнаса оаэ Ссн) баана росты Волфа НИШ еВ) дало RD Comte EOP „дын... te 


infix:-false; 
EN tokenindex:-cindex; 
end; 


12-9; 
1+ expressicn(ex) then 
egin 
ы агыл з 4. е = S tT D UN 

Jv | 

if (ех(. 1.) =0) then continue; 
J: =succ (j); 
P Е) ова и у: 222; 
і (t(.ex(.1.).)-name-'!*') then 
| Е („ех (.1.). -ttype:-7; 
1f (t(.exí(.1.).).name-'-') then 
| eOX(.l.)-.).ttype:-8; 
lfe(t(.ex(.i1-).)-.name-'*') then 
й сех. 1.70). сЕубе:=9; 
ІШЕ (аре (ол. с но пе НН then 
EL Cx CTLs ett ype: =10; 
end; 
| infix:-true; 
return; 
| end; 


CC t ————— € 
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La rans anms. 





р 


function structure: boolean; 
begin... 
if infix then 
structure:-true 72. 
else structure:-prefix; 


end; . 
function proc:boclean; 
latel av. 
tegin . 
if not (prefix) then 
tegin . 
result:-t(.tokenindex.).name; 
i:-t(.tokenindex.).linenum; 
message 
(error... structure expected.. ' 
l|str(result),i); 
proc:-false; 
return; 
end; 
if point then 


| 
| 

| 

| 

| 


reject;. 
if not(iff) then 
Legin 


result:i-t(.tokenindex.).name; 
i:-t(.tokenindex.).linenum; 


message 
('error... "." or ";-! expected.. " 
l| str(result),i); 
proc:=false; 
return; 
end; 
al: if not (structure) then 
regin 


result:-t(.tokenindex.).name; 
i:z-t(.tokenindex.).linenum; 
nessage 
(terror... structure expected... ' 
[| str (result) ,1) ; 
proc:=false; 
return; 

end; , 

if point then 

regin 
proc:-true; 
return; 

ends 

reject; 


4. A ee ee e оо eee a ee ee ee eee о анод ср рю O 
- 


74 





) 


о а a ылы (ener) Gee pee qa eet ЧАШЫ ny ets (oy ES eo il vett) o.c, IgE, amiet (coss у Оттор сети б.ни Слесари Обет eee др урне сенат. зада. бика. ДИ cma 


Ры их. 


end; 


if conma then 
goto a1; 

proc:-false; _ 
Tesult:=t(.tckenindex.).name; 
1:=t(.tokenindex.) .linenun; 
message 

(error... structure expected.. 
l1! str(result),1); 

(* proc *) 
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begin (* lexical analyzer ж) 
lexerror:=false; 
сова: Hs 
акеехр; 9 
null:=fal Se; "lokenindex:- 
1:20; рреді 
while аа до 
regin 
repeat 
1:=suc 
ү Т> Бош) then leav 
until (t(.i.).name = '."'); 
if Go tbouidj {пеп leave; 
en 
б not (prcc) then 
begin 
lexerror:-true; 
l:-rend; 
tokeénindex:- -pend; 
end; 
pbegin:-succ(i); 


end; t lexical analyzer 3) 
procedure changea; 
Var 1, 4, г, Вр, ре: integer; 
dummy: alpha; 
begin 
query:=false; 
а= 
Г:-0; 
for 1:21 to Ex do 
tegin 
dummy:=* *; 
dummy: = =trim(str(prec(. n ).name)) ; 
а. ) then 
) ваза. -)-name:='$'; 
if (dumm ys'query') then 


€; 
гос {.г.).Ыред1п; 
| үре: : 
-0) tren 


p——— —— ——  — ———— —————— раа Әсі алаад А әла ынаа ыы бити E ia n лын m 


query:-false; 
message 


| г error... "query" must be defined as a rule',r); 
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~) 





e, erm ncm ЁШ = aoe Geeta Cates Gomme) memes GS Lee etter pales dium О А 1L ---2 ашып аас Белес. ee Mee XD Clee eia ih (2 лла ee GES Ooms SEER 0csng KNEE 22025 css 437777 ums RU ccm Se EO pn ашына "ныс: 


end; | 
return; 


iF (d= 0) then 
Гедіп 
query:-false; 
nessage 
(1 errcr...there rust be a "query" procedure',r); 


return; 
| 


| 

| 

| 

(81) then | 

tegin 

query:=false; | 
message 

A error...more than one "query" procedures',r); | 


еп 
end; (x¢hangea*) 


m 


PT 





procedure createarrays; . 
Var a,b,i,j,count,before:integer; 
procedure alternatives; 
var 1,ab,ae: integer; 
раззпаше:а 1 рпа; 
a,bsinteger; 
procedure pu alternate | 
. , . (passname:alpha; var ab,ae:integer); 
таг 1, ти течет. 
Static x:integer; 
value x:=1; 
| tegin 
ар:=х; 
for 1:=1 to рх до 
Legin Tm 
te (Bree 1.) .relativity<>0) then continue; 
if (proc(.i.).name«»pasSname) then continue; 
ltí.x.) :-proc(.1i.); 
alt (.X.) .aend;=1; | 
alt (.X.).abegin:=proc(.l.).rulenun; 
ae: =x; 
x:=succ (X); 
| 
| 
| 
| 
| 


end; 
if (ab<>0) then 


Fegin 
lf([ab-ae)-0) then 
begin 

ab:=0; 

ae:=0; 

X2 =pred (х); 
end; 

end; 

ах:=ргеа (х) ; 

end; 


procedure putthenumber TP 
AE (passname:alpha; ab,ae,i:integer); 
Var j:integer; 


tegin 2 
for ј:=1 іо рх до 
regin : ES 
if (proc(.j.).relativity=0) then continue; 
if (ргос (44). „папа o then continue; 
proc s egini-ab; 
ргос (. ј. ) .аепа: =ае; 
end; 
end; (* puttnenumter ж) 


лані? Gey SS i EEO ens igi Ge SES guts Dee A peel ees REL C. oc of «ШИР. S come aw Й os BS ogi ie Sai ie, IED te ED SD малшы aD EEE | 





ban ome 


a SE ES SE EEE SS a ee ne eS Se nee een члана E 
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ге c 


procedure call; 
var ы 3y s intéger; 





begin 
for i:-1 to rx do 
tegin 
СВ. 
ргос .Callee:- 
end; 
for 1:51 to ах до 
Legin 
ij:-alt(.i.).abegin; 
proc (.1iJj. E yesno:-1;; 
end; 
for i:=1 to px do 
tegin и 
ДЕ (ргос (.1.) . уезпо= | then continue; 
Do proc m. "m ) then cortinue; 
ТЕ КРОС (- 1. о}, then continue; 
2f (proct.l. es 16e» ) then continué; 
| БЕ (ргос(-2. це а y>0) then continue; 
for jesl to pz do 
begin 
ДЕ (ргсс(.ј.) . уезпо= n then continue; 
if(proc(.]-.)-.abegin»0) then continue; 
Bee DOG (= ic ee ERO then continue; 
TEP ECG (. j.) +cailee> | then continue; 
if (PrCC(.]-).relativity=0) then continue; 
| if (prcc(.i.).name«X»proc(.j.).name) then 
continue; 
| кезен: Ще )-са11ее:=1; 
| еп 
end; 
end; (* call *) 
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йыйын. УО кы с pees OE es ee GS Ee Lo Amiga ВМ mcis per eT | 


Е 


- kegin 


развпаше 1- ргос( • 1.) .паце; 


putthenuater 
end; 


1:+0; 

for a:=240 tc 249 do 
for De =240 to 249 do 
begin 


lloc 
Е аз E leave; 
0) then 
USES ).name:-trimn(str 
str (char 
else 
ајћ (.1. Јова Ета 
г chr 
end; 


Ca : 
end; (* alternatives ж) 
Locedure procdo (t:trec) ; 
egin 
pXx:=succ (pX); 
ELOC (2p .rülenum:-t.linenum; 
proc(.px.).relnum:-t.relnum; 
ргоє (орх. .name:-t. name; 
Eroc (. px. .ptype:-t. ttype; 





end; 


"m и 
| г 


80 


e en continue; 
"Бет во 0) then continue; 


for i:-1 to rx do 

Бедіп я 
ргос (све P .abe in:-0; 
pror -1.).аеп4:-0: 
alt i+) -abe 1412-02 
alt aend:=0; 

end; 

Рот MEE рх до 

tregin 
if (proc 21: relata ышы 0) then continue; 
if (proc ptype= h 
if (proc 


putalterna с(равваве, „аш,ае) 3 
passname,ab,ae,1); 


ЈЕ ( (ас вен. and (b=240)) then continue; 


alt ( 
a)) | 
alt 
)); 





p ————É—— Áo ——dBÉÓ— A ey COD ee а me | 





c 


fen pardo(t:trec); 
egin 
tx:-succ (tx); 


рае (Ех. .rulenum:-t. linenum; 
Far (.tx.).relrum:- t. relnun; 
раг (.%х.) - папе: =®.пале; 


ar(.tx.).ptype:-t.tty 
zu „Ех. ie eee 
. end; 
Es beginend; 
var i,j: Е 
tegin’ 
for i:-1 to rx do 
kregin 


20; 
ail: repeat 


until 
s=pre 
тоё np DN. i 
repeat 


if 1»рх) Er goto a2 
until (proc(.i.).relativi 
2445 ae .) «ben :=ргед 


дођо а 
2: ТІОС(.1 .)- bend: =рх; 
end; (* beginend *) 


(1); 
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ги ЖТТ return; 


DE. 


пост.) врата ро вом 


ty=0) ; 


(a e УС 


procedure putfiles; 


Var i:integer; 


begin 


rewrite 
rewrite 
Гог 1:- 
tegin 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
end; 


reine 


kegin 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 
write 


end; 


tegin 
write 
write 
write 
write 
write 


write 
write 


тш oou i a a a i el СО a TT a a но E сања лтты... др и | срок D- 


writel 


paramfile); 
ltfile 
to 


tx do 
paranfile,i:3, 
paramfile,par Е 
paramfile, par : 
paramfile, 34 
paramfile,par(.i. 
paramfile, par {.i. 
paramfile,par(.i. 
paramfile, par ¿ls 
paramfile,par (.i. 
bo tanii a рат (ти 
п(рагашії 5) Ls 


ІН 
1 
) 


ж 

ө 
е 
, 


for i:=1 to Ex do 


ргосЁ11е,‚1:3 
recfile, prot]. . 
prccfile, proc ы 
ргос 11е, ; 
prccfile, proc „1. 
prccfile,proc(.i. 
proc E ргөс 
prcclile, proce. 
prccfile, росе 
ро et ребс а 
DIGG file, proc 
pr ccfile, proc 
procfile,proc 
prccfile,proc 
prccfile,proc 
Е ргос 
procfile,proc 
prccfile,proc 
precfile, proc 
n(procfile) ; 


„1 
йа 
ae 
Sale 
peli 
ei. 
E 
S 
215 


for i:=1 to ax do 


altfile, 
altfile, 
altfile, a 
altfile,' 


472 1) 

а1 : 

Т е 
altfile, Jer 

1 


EE: 
altfile,a Ed Ир 


3 
t 
Е 
1 
t 
t 
altfile, alt 


Ц 


«pep poe 
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ulenun: su); 
elnum: 4); 


жд 


Vets папи ee 
e 
P 
w 
E 
D 


2 17% 
i:] -iupenun; 4); 
.relnum: 4); 


папе; 1 


„ ріуре: 4 
утејав уз 
; 
) 


. pointer2 


. реп 
„abeg іо: 
.aend: 4) ; 


EE 4); 
relnum: 4&4) ; 


и, 
үре; т 


те yeni, ц); 





write(altfile,alt(.i. опе TE 
write(í(altfile, гал 1. oru tora 4 
write altfile, alt(.i. Ed :4); 
write altfile, ait (ai. ‘ben 
writelaltfile,alt -1.).abe тп: } Å); 
writelaltfile,alt(.i.).aen цу; 
write п (а1+#11е); 


butfiles *) 
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procedure cnow; 
Var 1, ds: inten 
а; 





pan раша alp 
kegin 

for i:=1 to рх до 

tegin 
ргос (.і.) -аѕ:=ргос i] rend in, 
proc ща -ае:-ргос(.1.).аеп 
ргос oe - гос (. і.) .аред іп; 
Tf (proc [- за 5120) ней continue; 
Proc (el. m 121 
proc i-i. .ае:=1: 
proc(.i.).now:-1; 

end; 


fortes d to rx 
=12599 4 Du. FH Еее. ат. 


roci. 1.) - рош:=1; 
OPEM 21 to ЕХ до 
<, 
ЈЕ LE (proc (. i.).pomz0) then 
gin 


k:=succ (k) ; 
ао pom:=k; 


panis proc .1.).name; 
ог ]:=1+1 to px do 


ELS 
рал атта; nane 
1f (panl-pan2 hen 
proc (. Jj. т =ргос (.1.) . роп; 
епа: 
єпа; 
end; (*cnow*) 
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procedure genbind; 
par 1,j:infeger; 


tegin 
for 1:-1 to tx do 
Legin 
раг í(.i.).nmatch2z-false; 
iF (par (- i.) pty pe=1) then 


be 
m par .ntype: 
par Щи препа: 
Continue; 
end; 
par i) REIP 
par rbin 


О 
OF 


ракш: i.)-ptype; 


£24 (D 


end; 
for i:=1 to tx do 
Legin 


if (par (- T к КАП уре) then continue; 

or j:=1 to 

= 

aS if (pat (-i-)« па ше<?раг(. 5).) «папе) 

then коон е; А 
аг е = П c = аг 1. el е; 
рані 34151 VE PEN ete ab ea: 

end; 


end; 
end; (*genbind*) 
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[Ly YN ee 


regin 
х:=0; +х:=0; 
or i:=1 to tkound do 
редіп 
саге %(.1.).%%у е О 
1950: OMS ons 
2% 25126502 га 
otherwise г ВВ = 
епа; 
end; 


M uie 3 


255 1:51 to рх до 


Те 
gi а j^tx) then leave; 

if obs: i.).ptype=4) then 

begin 
proc (.i-).pointer1 
ргос {.1.) . роіпіег2 
Continue; 

end; 

ргос(.1. ) «родпђег1:=] 

раг («4 |.) « pointer:=i; 

repeat 


f 
1 
o(t 
bou 


Ва 


| 
О 


:=0; 
2-0 


че 


1: + зис 
lf зе (2) then leave; 
as 3). К 


(тат а )-localit <=par(.j-1.). що з мен, 
DOCU HE у Е: -pred(j); 
end; * Fors) 
Eefore:=proc (. 1.).rulenun; 
count: =0; 
oe i:=1 to рх до 
e 
щш 1f (proc (. i-)-rulenum-zbefore) then 
begin 
proc (.i.).relativity:-count; 
count: =succ (count) ; 
continue; 
end; 
before:= fProc(.1.)-.ruxenmnum- 
count:=1; 
end; 
teginend; 
changea; 
alternatives; 
cnow; 
genbind; 
Futtiles ; 
end; (ж createarray *) 


eaten eg OS ар SN pig ee ge MET) e s s tas, MR ie a ae си СН ai, О дж e ош e ar рација пара ИН“ ган ар 


| ЗВЕЛИ —— 
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mm) memo oes EE eg о а А 


| 


а ааа ао D a Je —— [M a(————————— M——— P á—— ——————————DO———O/Ó'A—— й ла ————Ó— A Ct —P——— l— дате“ "ар (реши oed MM 


p—————————— M (салығы вы ат Á—— Á———— — A ———«RÓ€——————ÀÀÁ— —————————— —————ÀÁáÓ— — — —À є хінін ——Á—— d 


| M 
| жэ 
| о, 
| 


function UE Еоо1еап; 
var i,j,k,rn,bb,te: integér;  deff:boolean; 
поп: zal ph ha; 


define -true; 
for =1 to rx do 
begin 
then de epic relativity- 20) 
еп continue; 
males Souler 21.) .ptype- 6) then continue; 


Eo 1:51 З рх до 
begin 
IO] с relativity<>0) 
en continue; 
Per OG (eae ) -nane- proc (.i.).name) then 


deff:-true; 


па; 
ifa (not (deff) ) then 


E e ER E roc (.i.).name))) ; 
if (nom- 21) then Е 
ncm:-'a' 
nessage 
555255115 rocedure  1||5іїг (поп), 
ЕЕ SI гі enum) ; 
efined:=false; 
return; 
end; 
end; 
for i:-1 to PX do 
редіп 
if({proc ЕЯ =6) then continue; 
If (Proc ativity»0) then continue; 
ше (реа P 0) then continue; 
if (proc tei wi. - bbe Saat 
be:-proc(. . ben 
for J SEE to be do 
Бета 
ОА 2 ) рођ; 
ito px do 
begin 
ырго: k.) -relativity>0) 
en continue; 
if (PEOC (ək 


if(non-'$'] t then 


message. 
Cue tee Boece || str (ncm), 
proc(.k enum) 
defined:=fa ECT 
return; 
end; 


end; 
defined ж) 
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Dm pone» pm) then contirue; 
nom:-ltrinm( a КЕ ).name))); 


а аар аа, НЕ ааа slm анна» при іс) ті ор МН р Р с нн кн идиш 


function ее Щи boolean 
var 1,3),К,1,У0,У1 v2, vb,ve, > СИ vel:integer; 
xname,nom: algha 
begin 
гесиг5іуе:- false; 
for 21 to рх до 
tegin 
if (proc (.i.).bbegin=0) then continue; 
хпапе:=ргос (.1.) . папе; 
555. = рее. .bkegin ёо ргос{.1.) . репа 4с 
egin 
E if (p pee adit eter щл then continue; 
recursive:-true 
pom: =ltrin(trim(stz (xname) )) ; 
if (ncr='$') then nom:-'a' 
message 
(‘recursive is not allowed'||str(non), 
proc (.1.) .culeaun):: 
return; 
end; 
end; 
for i:=1 to гх ас 
begin 
if((proc(.i.).relativity-0) and 
proci о” then 
begin 


v0:=froc :Ње 
е Бес іп; 
үе:= ггос 
for j:-vb ЕС 22 E 
PEHE E 
Ti c je) spon; 
to n do 
tegia 
12 ( (proceed .relativity»0) 
en continue; 
i£ (proc {sk} - bbégin= 0) 
| en continue; 
LEPI OCE .) з pom<>v1) 
en continue; 
“01:=ргос (. „речта; 
vel:-proc i. 
for li-vb 
begin | 
у 2: = ФРЕОС Б 1.) рощ: 
if (v2=v0) then 
begin 
recursive :=true; 
хлаше:-ргос(.1. үс 
nom:sltkim(trin(str(xhane))) 
if (nom-'$') then nom:-a; 
message 
(‘recursive 1s not 


са vel do 


allowed' 


E On) v 
ро UN) rulenunm); 
return; 
end; end; end; 
end; end; end; 
end; (* recursive ж) 


| 
Р 
1 
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| procedure createfascal; 
var 


с: аггау{.1..255. ) moe alpha; 
3 прай Зе тате гаран PE 
function n (nz integer): eger; 
var i:integer; 
tegin 
nu. 
i:n a diy mol 
if (i20) then nl:=1 
end; 


procedure ваке` 160; 

var line:string (72 nte г: 
pespty,aenpty NES :boolean; 

E rod S EE 

egin 
| E ee user (input, output); 

CASE line); 
ine:='const'; 
writeln (user line); 


RE 


ax=0 : 
tx=0); 
h 


ЈЕ oe 
ТЕ tere user," репріугз! trlen 
writeln(user,' евр. Ж ЕЙ 
writeln(user,' tenp t:strlen 
writeln user,' рх=' а d px МЕ 

q Pt 

ч © 


:=5$%г true’ 
s=str('true! 
s=st 


(Пече 








«ча 
з ou 
CEE EE E) 
з ге = 
ши о 
LEBERE E) 


: ы ы, st A > 
MO 
BB 
го 
d 
Zi E BM 


writeln(user, ах-" ‘ах: 11 (ах 
writeln(user, ЕЕК 
а; writeln(user, 44=' ,49: п1 (99 
en 
procedure takeliri; 
var line:string (72); 
kegin 
гезе{ (111, ' пампе- 1151. разса1.а1'); 
while not eof (lib1) do 
tegin 
readln(lił1,line); 
writeln(user, line) ; 


nd; 
close(1ib}) ; 
end; (* takeli 1%) 
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ed 





| --————— — "-——— —— ———————— ———————————M——— —— —————————————————————— YERBUUU QD 


| procedure takeli 
var line:string( 


| begin . 
геѕеє (1252 
while not eo 
Гедіп 

readin (l 
writeln( 


єпа; : 
cios о 
end; (* takeli 2*) 
procedure takelir3; 
var line:string(?2); 
begin | | 
reset(lib3,'name-lib3.rascal.al1*); 
while not eof(lib3) do 
Гедап . | 
readin(11irl3,line); 
writeln(user, line) ; 


end; | 

сТозе (1153 
2 
а 


е 1152. газса1.а!") ; 
152) до 
7 


line); 


152% 
72) 
паш 
f (1 
1Е2 i 
user, line); 


end; (* takelibj* 
procedure takeliri; 
var line:string (72); 
begin | | 
reset (11b4, 'name=11b4. pascal.al') ; 
while not eof(libü) do 
tegin : , 
readin (lik4,line); 
writeln(user,line);j; 


end; 
exse TEN. 
end; (* takeli 4 ж) 
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| 


| ——————— ——————— аа GD Cie ees MR Lt OD a) ge ges ee gee и 


functicn change(var p:alpha):alpha; 
egin 


о 
“а 


v minuere na CS et SR ei ponas) PLC: tcs IRR quo eR fT a ce TN ny Ee RRS gam GEER ey CS tees anes ND ete as SS 


re aT gee aa во цу 


сћапде:=>р; 

if(p="<') then change:='lessthan'; 
ДЕ(р='>') then change:-'greater'; 

ДЕ (р=' <= then change:-'lessequal'; 
1Е (р-"><+") then change:=' greatequal'; 
if (p-'«»' 


| if (pz'z-') then change:-'equal 
end; . 2 
function exist (p:alpha) : boolean; 
var i:integer; 
Legin . 

exist:-false; 

for 1:=1 to do 


if(pzext(.i.)) then exist:=true; 


end; 
Boece cdure createfun(fname:alpha) ; 
ype 11=recor 
mestry)ng(9) 
Head: pha 
cstrrsng (22); 
end; 
а: 
13=гесог 
b:string(5); 
n:alpha; 
o:string(13); 
end; 
var £1:11;£2:12;£2:13;£4:12; 
regin 
if (exist (~name)) then return; 
тоа ="functicn *: 


f1.n:-fname;. 
Е1.0:<" (a,i1:integer):boolean;'; 
i2:-'begin'i 
а.о." $ 
f3.n:-fname; 
і f3.0:-2':zmalch(a,i);'; 
| fü:-'end;'; 
with £1 do 


ga 


tten change:='notegual'; 





begin 


nd; 
writeln(1ibi, Баје 
with £3 


regin 


И libi ТТ? 
ЕЕ ша t 
XT UT ) :Sinaze; 
СТИ 
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writeln(lib&4,a:9,n:strlen(str(n)),o: 22); 


writeln(1ib4,b:4,n:strilen (str (n)),0:13); 


| w———— —————  MÁX | 


cfm Cates (двори) ВВЕ IL ey ee Me A NM) co ARE I lai) pm ey E  , cg Mier es RUSO IGNES. up и п пн, 


тай 


r——— isum o um ярі со За mU C 1 a E a Й келі. з cr) amende ap i S еу nD a, WR tS 


oe altbody(fname:alpha;abe,abn: integer) ; 


Деве 121608472 
linel=recor 


а: string(9); 
b:alpha; 
со Strain 22) 


end; 
Liné4=record 


а: ѕігіпд (4 
R 


e: :strinq(2); 
f:alpha; 
43: а1рһа; 


ndi, зпаце 1212, 13,15,16:111пе: Це а пец за зуптецдег:; 


begin 


if (exist (fnare)) then return; 
ts =succ (t) ; 

•) := гпапе; 

зипесаспо": 


апе;. 
а, а а le и 
i 


ППО с 2 
в 


(D е чоо оо д9 


зе ое 8 6 


Elen (str (11. Be 


5 
С 
зи writeln(libl, 13у; 


for i:-abe to abn do 
tegin 

with 14 dc 

begi 


€ ct(D њега 


F3 (D д ее өө өө 
Ненсі ЇЇ il il 
ct U f p 


— 99 
л Л 


tr(f)), 


=> cun ERI de „15).; 
-'end;';writeln(lib 
ltbod y* j 


Cum epee pe a SS SS шш Sm оо шош 0 с о cc RSS cs 
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UE ST d))) ; 





PIOS ME createrule(fname:alpha;var a,b:integer); 


im SCENE 


1гес=гесог 
two:integer; 
del: char; 
end; 
Тађ=гесога 
dec:string (6); 
num: array te i 14120. ) ог 1гес; 
del:char; 
end; 
11пе1-гесога 
а: Ба 
Neaip 
о: string (22) ; 
end; 
line3=record 
a:string (34) ; 
b:integer; 
c:string (8); 
d:integer 
28: ee dee 


en 
1іпєб=гесога 


а: ӘНІН. 
other:stri 
ВО 5 - integer 
del: char: 


191: 


e 


end; 

line9=record 
f: ыле ме 
num: integer 
cther: string (16) ; 


end; 

11пе10- гесога 
other:alrka; 
num:inte ег; 
лш; : 


end; 
line12-record 
D: string (4); 
n:iinteger; 
О: о 
епа; 
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| 
line14=record 
a:string (11); 
b: alpha; 
с: string (7) ; 


en 

TS record 
a:string (7); 
b:alpha; 
ee string (7) ; 


E 1 En. 17,113,115,1 
12: làb;16, 18 : 11026; 
110,111: iline i0; 11 
LS Jee 114: sain 


| таар т; intecer; 


JS 


cl 


| procedure line15; 
Var 1:integer; 


- 


tegin | 
11.а:-'Гипсбіоп '; 
li.n:-fname;. 
11.0:-2' (a,1:integer):boolean;'!; 
12. дес:="Јађе1 ps 
for i:=1 to 2G do 


Гедіп 
12.numí(.i.).two:-0; 
L2.numq[(.1.).debs:'" 2 
end; 
12.del:-';'; 
with 13 do 
tegin | 
um if resatisfy then begin break('; 
сіл"); обом"; 
2:20; У 
е:х"; епа;"; 
end; | 
14:-"федап"; 
end; : 
rocedure line67; 
egin 
146. по =' Je. 


0 
= 
Ш 
H 
(D 
| 
LEN 


end; | 

rocedure line811; 

едіп 
48 спао = 
18.nun1 
18 сона 
18. папе 
18.comn 
та. пищ 


te 
, 


1Ё (accept (t; 


en 


О) вео оо вео є 
~ 


*ho ll - ui 


we © ||» 0 Со о оо) 


пеп оос иие 


i 
! if not(possible('; 


е 


ә 
rut of 
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ти ашай es ection eee Ga Cie о ПР 





19.num:=0; 
19.o0ther:-')) then goto 99 
110.other:= геак(! 
110.num:70; 
110.2:=");', 
111.оЕћег: =! Goto. ts 
111.num:=0; 
ТТЕ еее 

епа 

госедиге 11пе12 15; 
egin 

112.Ъ:=' i 
112.п:=0;. 
DiZ.O2= rrr okay(a) then’; 
=" Legin'; 
11Ц.а: <" 2 
114.5:=fname; 
114.cs="s=true;'; 
115:=' ево“ 
116:-" end;'; 
117.а:-" 96:7: 
117.b:-fname; 
117.с: +?! : а  <е": 
118: -"епд;"; 

end; 


07 


| 
oum ды 


var 


end; 


var. 


end; 


Var. 


| 


| 


procedure, write15; 


begin 


with 
egin : 
DR NR 
nc ;-hl (5); 
3 writeln(lib4,a:380,b:nc,.c:98;q ис ес 
end; 


procedure write67; 


begin 


procedure write811; 


begin 


j 


1,nC:zhvteger; 


with 11 do 
regin Е 
writeln(lib4,a:9,n:strlen(str(n)),o:22); 


en 
with 12 do 
regain . . 
игъ е (11Е4,дес) ; 
for 1:21 to do 
begin | 
nc;-rlí(num(.i.).two); | , 
write(libü,num(.i.).two:nc,num(.i.).del:1) 


end; 

я writeln(libli); 
епа; 
writeln(lib4,14) ; 

3 do 


nc:integer; 


with l6 do 

kegin 

пс: =101 (1011); 

write({11b4, no:4,num1:nc,cond:12) ; 

nc;-nl í(num2); 

write(Ilibà4,name:strlen (str(name)),commal:1,num2:nc) 
псз-п (nun3) ; 

writeln(lib4,comma2:1,a:1,0ther: 13,num3:nc,del:]1); 


end; | 
writeln(libu,17); 


nc:integer ; 


with 18 do 

tegin 

nci-ni(num1); 

write (1lib4, no:4,nunl:nc,cond:12); 

nc3;=n (num2) ; 

write iur nanze:strien (str(name)) ,commal:1,num2:nc) 
nce:=nl(num3) ; 

uriteln(libi;conna2:1,a:1,other: 13, nun3: nc, del: 1) ; 
end; 
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with 19 do | 
tegin 
nc ;=nl ( 1) 
а ВЕ: 23, пиш: пс, о% Бег : 16); | 
Gri 110 до 
гедіп | 
пс:=п1 ( Щі 
seein iis 4,other:13,num:nc,f: 2); | 
| 
| 
| 
| 
A 


еп 
with 111 do 


ий, Other: Ib ,numenc, £2 1). 


au 


procedure writelz 18; 
уаг пс:іпіедег; 
begin 
with 112 do 
редіп 
nc?:-nl 1); 
ЕО 1ıb4,b:4,n:nc,0: 16); 


end; 

ariteln (libi, 113); 

wit 

egin 
writeln(1ib4,a:11,b:strilen(str(b)),c:7); 


nd: 
arate m 1ib4,115 
writer n{iib4 ; 116 


with 11 
Legin 
can woiteln(11b4,a:7,b:strilen (str (b)),c:7); 


в eee 118); 


вар eg ES er oe eS (ty SS casi Cao eT PEERED „ар ees GE OUI oy ee dee SS сор оооло EE geen SS Bete men EE ee GEE <p Ge pees pe FE pene SS a GE” mami 


| 
end; 
begin 
ato ne then return; 
t:-succí(t); ext(.t.):-fname; 
11пе15; 
| aa :=pred а); 
foe 1:51 to 11 до 
Бедіп 
ЕЕ 
n 12.num(.i.).two:-aa; 
en 
| li:=succ a з 
12.num ща но:<99; 
12.num SERE аер 
writel 
line67;' 
16.numl:-a; 
165 name: =change (proc (. a.) .name) ; 
| 16.num2:-a; 
16.0003: = -sücc (a) ; 
l write67; 
| ог iz=succ (a) to b do 
редіп 
line811; 
18.num1:-i; 
18.name: -change (proc (. 1.) -паше) ; 
лая num2:=i; 
18.num3:-sücc (1) ; 
19. LP 
110.пипізрге 
. 111.пиашіз =tred ti 
аи sr ps a mm ssc жу о у 
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,rite811; 


ieee 
112: n:-sücc(EL); 
writei218; 
end; (* createrule ж) 
begin 
rewrite luser, ,'name-libHl. празан. 





rewrite user,'name-user. pascal.a 
t:-1; ext(.t.):- 2 
for 1:51 ко ах до 
tegin 
рап:=а]1+ (.1.) . папе; 
pl:-alt = bendy 
p2:=alt ben 
p3:-alt 21: -үе5 
if (p120) then сс anj; 
а; 1£(p1>0) then Greateruléipan, pipe): 
en 
о ИО Ex do 
kegin 
if (proc Е . уезпо=1) then continue; 
if (proc -ptype=6) then continue; 
LE proc En - lan é- ' query") then gq:=i; 
pan:=proc (.1.). name; 
рішореос («1 gave in; 
Насс die 
à: ДЕ (р120) then ESO IT M PIPI: 
en 


ов го px до 
tegin 
if proc (114: „ уеѕпо = 1) then continue; 


IST Uproc type=6) then continue: 
pan: =proc ( 21. name; 
рі:ергос n 2 POS in; 
раз -реос (.1. 
ЈЕ ((pi=0) and [prod c. .i.).relativity-0)) 
3 then  createfun(ran); 
end; 
БОП 1 t0 rx.do 
tregin 


recuset: . уезпо= 7) then continue; 
р type=6) then continue; 
апі- ост NS name; 
Е FOC e bbe in; 

2r .ben е 


Proc 
150) then createrule(pan, pPI P2); 


. 
о о „эь 


e осмо Фе че 


takelib 
end; (Жсгеа е pascal*) 


peer——————————————————————————————————— —————SÁÓ— e сы...) 





- 


(== 
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p—————————————————— P———————————M—— e EE 


я 


Legin 
cms (‘exec e',ret) ; 
datetime (date, time) ; 


messa е ( cms npgs "|| str (date) 
[stri 52 

l| str temeli 0 

Des е (* 


check oKensi. 
message(' 
інно {коке л ГЕ then 
lexicalanalyzer 
else 
begin 
message 
(‘compilation terminated due to user errors.!,0) ; 
message 
("virtual compi dat on time;in microseconds',-clock); 
[ng ее 
alt; 


end; 
1f not(lexerror) then 
begin 
createarrays; 
if (define and not(recursive) and query) then 
Legin 
mes BQ 
(*no compiler detected errors..source lines',-line) ; 
createpascal; 
end 
else 
Legin 
messace 
(*ccmpilation ош on due фо ч5ег еггог$.*,0); 
retcode(-1); 
halt; 
end 
end 
else 
begin 
за 
i Е. олде due to user errors."',0); 
retcode {- 
halt; 
end; 
message i | i | 
(‘virtual compilation time;in micrcseconds!,-clcck); 
Р ге соде (0); 
еп • 
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ње илаа ыыр а арса сық ом ни с пише и ни о ES Й о п НИНА ot 


APPENDIX C 
OBJECT PROGRAM 





program user (input,output); 


rempty=false; 
aempty=false; 
cap nio 
рх=48; 


procrec=record 
rulenum;: integer; 
relnumsinteger; 
гапе:гајрћа; 
т Ч ©) 
reiativity:integer; 
pointer!:integer; 
pointer. oit eger, 
begin:irteger; 
bend:integer; 
abegin: integer; 
aend:integer; 
vesno:intéger; 
Callee:integer; 
as:1ınteger; 
ae:integer; 
now: integer; 

end; 

parrec-record 
rulenum; integer ; 
relnum:integer; 
гапе:ајрћа; 
nem E (« 7-. 10. #6) 
оса11 Ту :1п едег; 
Балагер: гедер; 
уре Integer; 
nbind:integer; 
nmatch:bcclean; 
who:integcr; 

end; 


tracefile,term,procfile,paramfile, 
listing,aitfile,user,parfile:text; 
trace2:fext; 

гос аггау (.- 1--рх.) ог рессгеє; 
par.drrayt.l|--tx.) of rdbrec; 
а аггау(. | --ах. 
орЕзавгау (= 1. - Ех: 
вн. спас: сх,гее, 


ої ргосгес; 
of al 
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l 


ha; 
Е 221... 


К ee AREE oe O n нЕ осад MOR outs EE eg ED pec RE ore ME ny GS JO wie ee GI Ge? a OE ee к. a Ge ee (ОН a memes, ees 








r 


procedure cms(const parmstrz:string; 


external;  . 
procedure writeit; 
var isinteger; 


var rc:integer); 


begin : 
for i:=1 to tx do 
гедіп . . | 
write[tracetilo,:225' 9) 
write и а ы eculenum:4) ; 
write tracefile, par el.) -relnum:4) ; 
write(tracefile,' ':4); 
write (tracefile, par (.1.).name: 12); 
write(tracefile,par(.i. DEUDA 2 
write(tracefile,par(.1i.).locality:4); 
write (tracefile, par (.1.).pointer: 4); 
write (tracefile, par(.1.).ntypes4) ; 
wrlte(tracefile,par(.i.).nbind:4); 
write(tracefile,par(.i.).nmatch:5); 
write(tracefile,parí.i.).who:4); 
| а writeln(tracefile); 
епа, _. . 
writeln(tracefile) ; 
| for 1:21 to fx do 
kegin . | 
wrlte(trace2,1:2,'.*); 
write(trace2,proc(.i.).rulenum:3); 
write tracez, proc Jesum: 0; 
wrlte(traceZ2,' ':4); 
wrlte(trace2,proc(.1.).name:12); 
Wwrite(traceZ2,0roc(.1-)-ptyYpe:3)5 
wrlte(trace2,proc(.i. relátivity:3); 
write(trace2,proc(.1i.).pointerlí: ЈЕ 
=#гїїе(%*гасе2,ргос (.1.).ро1пїег2:3); 
write(trace2,proc(.1.).Dbegom: )5 
wrlte(trace2,proc(.i.).bend:3); 
wrlte(trace2,proc(.1i.).abe in:3); 
write (trace2,proc(.1.).aend: 3) ; 
| write(trace2,proc(.1.).yesno: b; 
| write(trace2,proc(.i.).Callee:3); 
write(trace2,proc(.i.).as:3); 
| WwriteTtrace2,Droc(.l.)-d6: 5) 
| wrlteftrace2,procí(.1i.).now: 5 


Wwriteln(trace2); 


end; 
writeln (trace2); 
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procedure message (const msg:string;valint:integer); 
var term:text; | 
begin 
termout (term) ; 
1f (valint»0) then 
regin, ) 
MEE Enc oS Eee *) 11159); 
еп 
else if (valint-0) then 
kegin. 
writeln (term, msg); 
inum:=Suce (aun) ; 
writeln(listing,msg) ; 
end 
else 
regin, | 
Wwriteln(tern,msg, (-valint)); 


aan amnem atrio meno аль сно „аков бука акко. сока, пеликана чика gets SS OID eg meen tacit SOA Sea aD eaa) 


| 
| end; 
| close (tern); 


= SS ee ee eS ee en eo шиши _-шш = шы во 





———————————e————— ний 


rocedure 
abel a1,a 
var i,f:l1nteger; 


Ep 


a1: 


a2: 


if tenpty then 
reset (paramfile 


for 1:21 
begin 


end 


if pempty then goto a2; 
reset (procti ie) 3 


read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
par ( 


for 1:=1 
regin 


read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 


readin(procfi 


end; 
1f aempt 


reset(altfile); 


for 1:=1 
regin 


КО з 


read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 
read 


utfiles *) 


рас 


| 


D. al; 
о 


to tx 


paranfile,f); 

paramfile,pp); 
paranfile, par 
paranmfile, par 
paranfile, par 
paramfile, par 
paranfile,par 
paranfile,par 
paramfile,pa 

n( aramfile, 
1 | - трасе = 


.rulenum); 
.relnum); 
о 

è е); 

з p ys 
el. > pointer} - 
гі.1. SUM 
ради ет іпа); 

alse; 


ala 
ele 
ele 
ele 
e le 


do 


procíile,f); 
procfile,pp); 
procfile,proc 
procífile,proc 
prccfile,proc 
ргосіїїе,ргос 
procfile,proc 
procfile,proc 
procfile, proc 
procfile,proc 
procfile,proc 
precfile, proc 
procfile,proc 
procfile,proc 
procfile, proc {.1 
proctile, proc (.1.).as); 
procfile, proc (.1.) .ae) ; 
ÓÍé,proc(.i.).n0ów); 


to rx 


«le. 
el. 
el. 
ele 
ele 
«1. 
ele 
el. 
. 1. 
2218 


.ruienum); 
.relnum); 
о 

Е е) ; 
DT 
ро Ера 
. pointer2 
Е pa 
. репа); 
-аһедіп); 
„аепа); 

. yesno) ; 
-са11ее); 


el. 
- 1. 
ele 


then return; 
to ax do 


altfile,f£); 
OE р 
ал тега (сло 
altfile,alt (.i. 
ат Ее, ат. 
altfile,alt(.1i. 
altfile,alt (21: 
аб Етјена ои 
alttije, a). (ea. 
alt file ates. podus 
altfile,alt (.1.).bend) ; 
altfile,alt (. 1etmjabdegin) ; 
р (а ltfile,a С (га. ) гаепа): 


.rulenum); 
.relnum); 

S NEUE 
•рсуре) ,. 
ССГ 
o RENE 
apos re 1 


Ba У 
B OR eee Gti ali te Ges Sos wee Go ie em ge, SE i ee Geis Gee ees 1 SS Qe ee is GE 10min tte genes Ge GS cassum AME ee нені | urmtztsuscuus it po ein nh turp б0Біь Б солай тылай iuc cd eee Cee, ED AE cup qEEES Sce fS qum quas 
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eee eure resetit(asinteger) ; 

egin 

3 if ({a-1)=qq) then ros 
гост. а.) .а5:=ргос - abegin; 
proc ae гае:=ргос (.а. Зи 
ргос иа з2ргос за .abegin; 

Sf [proc (. ae 

Proc |: dd> uc 


»0) de retürn; 


ргос(.а.).ае:=1: 
[Proc 
end; (*resetit * 
function possible (a: integer) :boolean; 
var al,a2,a3:boolean; 


а. „пон: 1; 


редіп 
al:=false; 
a2: =false: 
a3: =false; 
а1:=(р roc(.a „пои<= ргос (.а.) . ае) ; 
а E a. D rpez 6l then a2:-2true; 
en a3J:-true; 


if ко: 
possible:=al or a2 or a3; 


| end; (*possible*) 


DON 


a SN REA ER CR ee а асом 





LL 








Р break (azinteger) ; 


vara і, aye call,asta,afin,pbeg,pend:integer; 
egin 
+ ae ten DUM then retumo; 
ргос ee -рЕуре-%) then return; 
Meee EFtype=6) then 


SC — Ss . роіпіег1; 
реп РЕ pointer2; 
goto a 


n 
1 Ё 
є 


нет 
о 


го oc(.a.).callee»0) then 
2m 


са11:=ргос (. -са11ее; 
aSta:-proc са i .pointer1; 

afin:-prcc(.call.).pointer2; 
end 
else 
tregin 

са 1.1:=ргсс (.а. i! „пои; 

са11 :- ргед (са1 
asta:-proc(.cal „родпђег 1; 
afin:= =proc - са11. 


be =ргос [. RE. 
:-ргос ointer2; 
or i:-asta te afin do 
tregin 
if (i=0) then continu 
if (par (.i. ) «who<>1) 
par (.i.).rmatch:-fal 
ЕЕ рави 1. ЕРИ 
е 
= рат .) .піуре: 
3 par EN 5 пошпае 


«pointer 


ue? 
the en continue; 
Sc 

ti 


0; 
0; 


w 
— 


d; ас jelo Eend, 
Еси Бо ичије - роіпіег2; 
Or 1:=рђед to pend do 
они 
120) then continue; 
if ME 1.) .who<>1) then continue; 
par {.1. ).rmat tch:=fa 
if (раг (. да ) eptype=1) E 








О nd 


begin Е С 
ас Са е:=0; 
на Dos | ПЕ! 
Or k:=pbeg to Fj ao 
begin 
if (k= e CD continue; 
if (par Е и then continue; 
if por s реуре<>1) then continue; 
if Ба Р раг (. 1.) . папе) 
font летале 
таг („К.) -пша ср: -Еа15е; 
par {.k.) .ntype: =0; 
babi. Ko) -n ind: =0:; 
end; 
end; 


yj 


Cur i nin aT a RR 5 ET gi d" i i s Pii, c ри соо RE. i eI ey RIE Co. GENES Ue Uy EMG н EY (рицар 


————————————— —— 


function analyze 


Var 


(a:integer; var re,le:integer):boolean; 


EUN 122 integer; 
tf:foolean: 
nset:set o les. 458 


begin 


end; 





О: |: „ролпђег 1; 
а за.) «(роїпіег?2: 
nse : 
for j:=f to'1 do 
Гедіп 

then continue; 


qp m to coun Зо = Кога ту) 


nd; 
EM j:=1 о (1-Ё+1) do 
begin 
rr in nset) then continue; 


Dm 
end; 
1е:=0; 
analyzez-true; 
О =Е сона do 
kegin 
зі E (par! then continue; 
par d .localityim) then 
а: раг .locality»m) then 
end; 


ге:-0; 
Іог ј;=Е со 1 до 
E(par(- if ae ДӘ then 


ее 1е= le-3 
assert | ге= i} ог (ге- E | 











1Е ((1е=1) and (re-1)) then 
egi 
i tf:- ((par(.f.).ntype«» ас 1. 
par(.f.).ntype=0 
раг (.1.) . піуге=0 12 
еп4; 
1i({le=1) and (re-3)) then 
regin 
t£:-((par E pe os Or 
par UPS cem ог 
рат ntype<>2)) ; 
end; 
if (({le=3) and a then 
tegin 
tf:=({ раг .пёуре<>2) or 
туре), ог 
раг ype<>2)); 
end; 
1: ((1е- E and (re=3)) then 
Гедіп 
tf:-((par(.f. ше pee Or 
Бат Ма Ey pec ЈЕО 
parl- са сүре e«»2) or 
Da Bite dn. у: .ntyre 22y): 
end; 
if tf then і 
analyze:-false; 
(* analyze *) 


КОО 


1е: -засс (1е) ; 
leave; 


rei-succ (re); 


).ntype) or 


8 
А У 


a cee ces н ан ни EH ees eS cid SAI PIA 


ү 


function, is (a,k: О ОЗЕ nee ORIEN | 
var Ius 1299 б pe:integer; 
begin 
ргос (.а.) .ролпђег1; 
Wc І) 
ща Te е l.). 
T: .nbind:-par : 


ы 


пас: ЕС; 





tri 
сс (Цъщ then return; 
a)>px) then return; 


"рі. );pointeri; 


-3-) -релд 
ре»): pointer2; 
b do 


jee oo oooo jjant HAHH jill 
Нин RER | 


етан њи eae Ы i-a 
O D D tress ННМИ р хр в. зе 


egin 
ТЕ (ра -0) then continue; 


if (par (i. E ‚ папе<> раг {. Ё.) . папе) 
en ccntinue; 
if (p ar (.i-)-ptype<>1) then continue; 
par Е .ntype:-parí(.f.).ntype; 
par (:17 nee рад .f.j.nbind; 
par •) -ићо:=раг (.1.) .кћо; 


епд; 

end; (*is* 

functicn еха1 (ор 1: геа1; ор::1піедег;ор2:геа1) :геаі; 

egin 

Case op of 
7: ста |: зор 1 + ср2 
8: ста1 : зор 1-ср2 
J: eval:=op1*cp2 
10: еуа1:=ор1/ср2; 
end; 


end; 
function doreal(f:alpha) :real; 
var 
num:real; 
begin 
оле a nun) ; 
doreal:=num 
end; 


trn Comm mum EAS ЗО os AMARE у с=с отара ey RD a сон i pT o a .. RN ра оскар див привиты: мер 


Sm | ee a a Sm se сс шш | сш 
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function Eccc R: dE boolean; 


var азат epi Е Do, pus integer; 
„ра:а 


ра,рр „РС DE ор1,ор2: intéger; 
begin 

1f not(analyze(a,re,le)) then 

begin 

" lessthan:=false; return; 

en 

f:=proc га: оер 

1:=ргос Dorn 

ЊЕ ( Ie ) "eg (тес а "then 

regin 


Roe ae із )entype<>2) or (par(.l.).ntype<>2)) 
then beg 
а нап. -false;return; 


lésst AEST MI OE EM, pa) ,op1,doreal (pb))< 
eval (doreal р 8 
return;ernd; 
end; (Ж lessthán*) 


рс),ор2,д4огеа1 


| 
| 
| 
| 
end; | 
р1: =раг ауа ріпа“ | 
отра: NH пале; | 
p2:=par (. ое: 
:= ar - 22.) = папе: 
ES. ваш: (doreal (ba) «doreal (pb) ) ; | 
return 
dm 1) EC (le=3)) then | 
egin 
і p1:-par ea) "попа: 
ра» = рав RT anch | 
р2:=раг - 2.) .nbind; 
pb:=par -E2-) - .name;j; | 
p3:=par {. alj pane! | 
с: <раг (-г3.) -па 
лије ar (1712). pt }pe; | 
dorra. (pa a) < <eval (doreal(pb),op1,doreal (pc)) ; | 
if ( {re=3) Bt (1е-1)) then | 
едіп 
~ р1:=раг 5 108 о: | 
a:-par(. „папе: 
55: er na ).nbind 
pb:=par E ) -name; | 
О TE г: tl. n | 
DE = „1.).п ind l 
ce sb | 
essthan:= 
returnvendy Роб ,doreal (pb) )<doreal (pc) ; | 
return;end; 
ие) and (1e-3)) then | 
egin 
| pH-parb[.t.)-:nbunds | 
pa:-par DP сар 
НЕН: же про | 
ро  =рав(- 22.) - папе: 
op1:-7par(.ftl.).ptype; | 
pugs-par(.1-2.) = пл те. 
рс:=раг овочі зва що В | 
р4:=раг 1.1.) .прігпа; 
ра:-раг TOUR. | 
| 
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function повен К: ч boolean; 
var теле а ері „12 p3,p5: Integer; 
ba: Alpha; 


pa,pb,pc Opl,cp2:integer; 
begin 

if not(analyze(a,re,le)) then 

Legin 


 notequal:-false;return; 


: -proc fointe 


н бара ски 
) and (le=1)) then 


if (i| m 
је 


egi 
if аг (.#.).піуре<>2) ог 
аи пази then 


return; 
end; 
| end; (Ж notequal *) 


Е 


begin | 
Е notequal:-false;return; | 
end; 
| р!:=раг (2 2.) спона“ | 
| pa: =par 14 .) -паше: | 
p2:=par (21) "авало; 
ррізраг а ).nam 
noteguals: =(d breal (pa) <>doreal (pb)); 
.. return;end; | 
іЁ ( (ге=1) ала (1е-3)) then 
regin 
pl:sparí.f.).nbindge 
pa:-par Eu .) name; 
р2:=раг c ).nbind; 
pb:=par - 12. ) - паше; 
p3:-par(. и 
рс; =раг (р): | 
Ор1:=раг (.1-1 11). aec 
notequal := 
doreal (pa) <>eval(doreal(pb) ,op1,doreal (pc)) ; 
| return;end; 
if ({re=3) and (le=1)) then 
regin | | 
pl s=pak (ote) попа | 
ра: =раг "Бред опа лов 
| рг:=раг (. (%2.) попа | 
рр:=раг(.ра.) -паце: | 
| Оре ара r(.ftl.).ptype; | 
{ рз: = рас. патша | 
DC; -par(-r5.)-names | 
note = 
ета OPEN 7 opi,doreal(pb))«»doreal(roc); 
| return; | 
end; 
if((re=3) and (le=3)) then | 
regin | 
різераг (І. І.) с права 
ра: =раг {.-ЕТ. 5) с паше; 
p2:-par(.tt2. -nbind; 
pb:-par(.r2.).name; 
ор Пара EUN pt ype; l 
p3:=paáar Ш : 
Posee 1135) папе; 
рі:=раг (.1.) . пріпа: | 
ра: = раг (.рі.) . паше; ! 
орді-раг (1-1) spt ype; 
nótequal:zeval doréal (pa) ,op1,doreal (pb) ) <> 
eval (doreal (pc) ,op2,doreal (pd) ) ; | 
| 





— — 


function 256455404216 k:integer):boolean; 
var геш. cpi Че p3,p4: in eger; 
" гра,рр рс,р за рва; sopl,op2:integer; 
egin 
3 Den ЗО) then 
e 
E "greatequal:-false; return; 
en 
m ЕЕ 
кОС(-а.) -СОТНЕ 
) and (1e21)) then 


озера i NET eR OP Ren 


ЧТ лл. к К ш: 
I в.) прлпа: 


tedd гет 


STU 5) -папе; 

5) nbind; 

ar Е ) - па 

reatequal :=(doreal (pa) >= doreal (pb)); 
urn;en 

кесі) indi (le=3)) then 


)-name: 
1.) - pt ype ; 


eval(doreal(pb) ,opi,doreal(pc)); 

return;en 
if ((re-23) and (1е-1)) then 
tegin 


pa: аг ну •) -папе; 


5 Ба Pd ха 
рс: = 
greatequa 
ЕН Или doreal (pb) ) >=doreal(fc) ; 
return; 


‚рае. Еау ава 
а: раг ше .) «паше; 
с =раг Ри ye A 
ера НИШ ype; 
:=pār {.l-2.). nbin 
с: Баг 235115446; 
2 =) пошта 
2 (ido m 
0р2: =раг (.1- 1. 
gFeatequal: eval (dereal ( а) ,ор1, а b)) >= 
ета (оар, ор2, doreal (p и 
return;end; 
end; (* greatequal' *) 


| 

| 

|| 

ее 73) and (1e-3)) then 
Е 


En commas) igs Gon Жаман, ера Dn Mee Ss ee et gs SD pe | сшщ | RERO. corro Де) Gites eis Gt gettin yes Gey pX--——————————À————— ——— À———— —— A, 
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function „ез теш а, :integer):boolean; 
Var т 1,21 sF A E integer; 
a pa,pb рс,р а pha; ;Opl,op2:integer; 
egin 
if not (analyze(a,re,le)) then 
egin 


_lessequal:=false;return; 
en 
f. 

:=ргос „оїпїег 
ЈЕ (| БЕ” ) E (le= n "then 
e 


gi 
ae ar(.f.) .ntype<>2) ог 
«(рагы ағу) then 


я -false; 
return; 


ji f.) nbumu 


2o «a. s о 


аг E ). name; 
5} STD bind; 
аг 2.).паше 
quai=(aoreal {pa) <= doreal (pb)) ; 
n;en 
) апа! (1е-3)) then 


af.) прштае 
=par •) - паце; 
а 1-5 З nbind; 
=par name; 
> Du «nbande 


QWOND = (0 с 66 оогоо D, 
e 
І 
на 
(» 
um 


par 153. елате: 
ор :=par (.1-1 .).ptype; 


dorea (pa] «-eval (doreal (gb) ,op1, ,doreal (pc)) = 
return; 
А ((ге-3) апа (1е=1)) then 
in 
я pi:spap(2f.).nDa nue 
Da: -Е15) паре; 
pb:=par (.f2.). name; 
орі: =раг (серро 
рз := рав (- 1.) поп 
C:-par(.r3.).name; 
essequal:z 
eval ( once кыш op1,doreal (pb) ) <=doreal (fc) ; 
return;end; 
а =3) saa (le= 3)) then 


pl:-par e te) eT bI 
pa:-par ши. за паше: 
р2:=раг t2: "e nbind; 
pb: - par E "паши 


1: враг (.Е+ е; 
ні ipàr ЩЕ of ЈЕ ци 
ВС, ЕБЕ T - паше; 


1Ё{ 
regin 


О 5: =par (.l- : 
ааа zo 
eval ( 
return;end; 
end; (* lessequal $) 


Шри” 


[ллы imm cia cade н а лава г Б eS Gee suem ШЕ s noel no Oe ees SEE Gene GE Cakes Ga ee ey Gam ee OD ge Se Les рвав рр ООН pe ee Ean meen ee Ge EE S E ee оцінну човни per en eee SE кинени een Se 


б Т Í g o a a O o l O O ee = 
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function greater (a; k: AE о ee a Ds 
var EE tapil (F2 p3, p4sinteg 
" ra, pD „рс,р а phá; ОРТ, орг: ue er. 
egin 
: if not(analyze(a,re,le)) then 
egin 


.greater:-false;return; 


en 
i Be га. аа 
) а 


га 
па inc ту "then 
) 


Е 
) 


гос 
ТЕ ве В“ 
=ч 
рат (.1.). тура“ 


ес 
greater:-false; 
return; 


E f.).nbirnd; 


)-ntype<>2) Cr 


2)) 


рррр 
H tn 


ү )-name; 
2): nbind; 


ae (ығы (pa) >aoreal (pb) ES 9 
no 250 
) and (1e-3)) then 


ж-қ т 


о охааа оар 


ue e nu thee 


(D Fh 


ex • 
ep 
Б 


xbDar(.f.).nDbInhds 
-раг Шы .).name; 
= 2.).nbind; 
зраг E ). hane; 
= ).nb ind; 


а (D CRD 00 ee oe 00 (Cu 


ES 
вр 
нн 


ра -F3 Jona ane; 
EE CIRC pee: 
Ке ы ,opl,doreal(pc)); 
return;e 
ii ((ге-3) апа (1е=1)) then 
in 
y^ різер „Г. оно дар 
ра par B •) - папе; 
BB t2. Јода 
рр: = раг E . name; 
1: =раг (.#+1. рүуРе› 
p: RISE = 1.) -п aban 
рс:= E Е3.). па а! 
grea EIE 


ен (Согеаг (вели SINE doreal({pb) ) >doreal (nc) ; 
return; 
if ((re-3) BI (Ше 3)) then 
редіп 
pl:-par (.f. IPIE 
ра:-раг RD .).name; 
De о +2. ).nbind; 
рь:зраг (-р2.). пава, 
О 1: =par (; Te на Де: 
pee TN ii 
с: г |- а. )- паде; 
4: „прапа“ 
а E Mii 
p r(.1-1 ce 
5p: ерат 121717 5253 (р ор doreal({pb))> 
eva а p2, ІНЕ ба ре 
return;end; 
end; (* greater *) 


p E——————— ——————M—M———————À € анайда 


СЕЕ 
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E] e 
var re,le, 


ra,pb 


„рс,р 


44414,5: яко 


integer): boolean; 


3; p4: inte er; 
а P 3 


а; 051, ор2 = intéger; 


begin 
if not (anay 
kegin 
equai:=f 
Е "S 


) an 
(par : 
n a 
e 

Ies т), an 


if { 
kegin 
р1:=раг 


рс 
5р1: Ер ar 
edad зд 


2е(а,ге,1е)) then 
alse;return; 


ee ae 
.Fointer 
d Pec) "then 


name; 
type-2) and 
real (pa) 


e=3) and 
PS) ) 


3 (le=3)) then 
Р.) арине 
“1: „).папе; 
2. ).nbind; 
ү; .).name; 
-nband: 
F3. паве: 
(ee -) е Туре; 
Ее ИА 


ar (ad. 
oneal pb) 


=e val (doreal (рр), ор1,догеа! (рс)); 


return 
if ((re=3) ще 
гедап 


Веви 
:-par 


ar 
=== 


па; 
d (1е=1) ) then 
f.) . Dp mes 
El: •) - name; 
ЗА ) -nbind; 


Fey): .ptype; 
Ч) Ва 
-ІЗ.) . папе 


~ 


val (do огеаї (ра),орі, doreal (pb) ) 


=dcreal (pc) ; 
return;end; 
re=3) and (1е=3)) 


then 


begin 


рі:зраг 


= 1.) „прати 
-Е15) папе; 
= БРЕЈ поима 


return;end; 


end; (* equal Шы 
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повід НЕЮ 
геаі(ра) ,ор1,д4огеа1 (рһҺ) 
( а1 (рс ү; ор2, doreal | 


)- 
ра)); 


ју 3 трена 


(par (- 1.).ntype-3)) 


К үсте еее т чы ү ы ЕУ ш у чо ШИ ү <n с) 


function okay (a: integer) :boolean; 
ШЕТ. ро, реха integer; 
egin 
р if tempty then okay:-true; 
if tempty then return; 
Гр =ргос : 88: - bbegini 
ре:=ргос 
Eb:=proc B. ERES T. 
е: -ргос -ре- .Pointer2j 
ог 1:=рб То ре до 
kegin 
if (i20) then continue; 
E TIC nempe) then 
еді 


SAGE =false; 
return; 
end; 
end; 
ckay: =true; 
end; (*okay* 
function firstí(a:integer):integer; 
egin 
Е first: =proc (.a.) .now; 


function last(a: integer) :integer; 
езт. 

тароз а.) -ае; 
епа; зе. 





| 
| 


ПЕРЕ А. ЕЕ РР о ДАЕ ЕН нн m i 


1487 


о ви 


|| 
| 


function match 3,1: integer):boolean; 
var pbeg,pend,limr1,1i1m2,as аи afin, call:integer; 
procedure пазва ана pbeg, pend: integer); 
voni 1, jzinteger; 
€ 
чн й бе ац 
Or i:-pbeg tc pend do 
Legin 
2 if (i- 0) (енер continue; 
Ji =succ PE 
І (1-0) еп ны 
par я aes P e= ат e) and 
= а si 
(pari) Е ua M 


end; асан 
proce ure bindprcc(asta, pbeg, pend:integer) ; 
vee 1 j,X:integer; 


beg 
red(asta); 
E A ue 
Fegin 


if (i= 0) then continue; 
; -succ( 
т [у= (li en continue; 
a раг (.1.) . піуре= 0) then 
begin 
ває |: 


pend do 


суре: 
раг (.2.) .abind =раг (.ј. = Nae: 
аг x „ићо:= 
ог К:=рбед to T end do 
begin 
x: k=0) then continue 
par x .-ntype»0) "then continue; 
par(.k.).name«»par(.i.).name) 
5 continue; 


par E] apis POLI |: REIP! 


5: npibdi-bar |: 2.216 | 


рат оке .nbind:-par l.i. spends 
par .k.) .who: -par(.i.).who; 
end; 
end; 





end; 
end; (*bindproc*) 
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| ———————————————— -—-——— —————————X——————————— ванны N a За G D 





function checkit:tkoolean; 
var i,j:integer; bool:boolean; 
tegin 
Lool:-true; 
for 1:=рђед to pend do 
regin 
if (12-0) then continue; 
bool:=(bool and par (. зві nmatch); 


nd; 
її bool then 
Еедіп 
checkit: =true: 
return; 


BSc checkit :=false; 
for і1:-рред іс pend' do 


regin 
: ЈЕ (1= Ши наз. continue; 

тг par DTP M then continue; 
if по om hen continue; 
par ET n ype: =0 
par(:1:-)-npind: 
parus .Dnatch: CHE 

end; 

for i:=asta tc afin do 

regin 7. 
ЈЕ (1-0) үреп continue; 
ағ (раг (- -реуре<ә1), then continue; 
grs part. носи hen continue; 
par (.1. ап? 
раг (.1. .nbind:-0; 
раг (-3.) -гпаспл: = сасе 

end; | 

end; (* checkit *) 
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о | у ___ј _рур-- у pE „ш ee eae eS eR Gee) em Gy pte eee Mies өлме ree pn EPs __--_-___н--- 


end; 


begin 


procedure rulebind; 
| var i,j,rbegin,rend:integer; 
j 


18 ten return 
ys sm Е 
22 


ren арі )-Póinter2; 
тога i:—-pbeg tc pend 
egin 
: if (i20) үлеп опера, 
if (par (.1і TE then ccntinue; 
1f par - 1. ptypec>n) t но continue; 
POR 3: <+ гр egin o rend 
egin 
X 18 (520) then continue; 
nem par .]-) -рЕуре<>1) then continue; 
if • ј.) -name<>par (.i.) . паде) 
t T continue; 8 
аг 1-0 е:=раг En e; 
Бат D: : nbihd i-par ( |: түре; 
раг (. ј. ) -“ћо:=раг (.1.) .who; 
епі: 
end; : 
(*rulebind*) 
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у ае) a AY pet en Se) оставай ee oo ee ce за a 





ео о 





roc {.а.) .роіпіег1; 
= пгос (а - рої птеко : 
: гос (.а.) .Са11ее; 
1f (call-0) then 
kegin 
if not(aempty) then 
begin : | 
astas=alt (.1.) .pointerl; 
afin:=žalt(.i.).pointer2; 
en 
end 
else 
regin , 
asta:-proc(.call.).pointer!; 
Е afin:sproc(.call.).pointer2; 
end; 
E En ped) then 
im1:-1 
eise. 
| Ы PER ERDEI EN; 
if(afin-asta) then 
1im2221 
else. . 
, im2:=afin-astatł1; 
if ((pbeg-0) and (pend-0))then 
1һ1:-0; 
if ({asta=0) and (afin=0)) then 
102: =0; 
if (lim1<>lim2) then 
tegin 
match:=false; 


return; 


nde 
if£((ilim120) and (1im2-20)) then 
begin 
match:=true; 
return; 
end; 


Findproc(pbeg,asta,afin 
matchit о Ена 
patchit рвеошазіа ава 

en 


а: 


1f checkit 

kegin 
natch:-true; 
rulebind; 
return; 

end; 

natch:-faise; 

end; (* match *) 


B ал = 


а 


| 


у ПИЦА ОПАСНИ ЕНИ AOE Lignes bim cach MOS aps Juin UMS aom pend Gui arms quse veda Р ынын Ила АРАШ иса uvunp MEE: Qua ua AEE GRID GAS posila) us GUN ee QUE ENS KEEN SEED Ones tM FREE. 





function саса alpha) :bcolean; 
var i:integer 
tegin, 

findit:=false; 

for А То сх до 


tregin 
E тере i.)) then 
See ттЕ -true; 


return; 
end; 
|; end; 


nd; 
Procedure print 
var АЕ К рБед° ISend,pb,pe:integer; 


be 
ЗА е Если then return; 
cx:-1: Esp iere 
rp -ргос ча: : ана 
ре:=ргос 
НЯ . роіпіегі; 
roc . pointer2; 
em =0) + E 
Legin 
kj:20; 
repeat 
Kj: auec eld S f 
roc e- .pointer2 
| шп: (рева) р j-) -p 
en 
for. "баром tc cend do 
Legin 
if (i20) um continue; 
| ше рак ОРАЛДА а! then continue; 
К: = Es ind; 
| үз к fin аи 1.) -паше))) then 
begin 
message (Str (ват 1.) .папе) | | 
Str (* = sex par name),0); 
Cxi-succ (cx); 
СРЕГ. СХ. Ер аг (.1.).папе; 
end; 
end; 
end; 
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mnie ay Rete С) ото grey Sie ey SS ee ES rea дрвени RS os о алани MRT СЪЩО gee) feed Sat pat, Oe ED ИМИ as here EE oy EEE кете тег OID ыар es a 





ИР МНЕ FG 
| : — 
function accept (function name (a, j:integer) 
. . .*boolean;a,j:integer):boolean;j 
var i:integer; 


egin , . 
о :-first(a) to last(a) do 
egin 
з if (first (a)>last(a)) then leave; 
ЈЕ (папе (а,1)) then 
| begin . 
proc (.a.) -now:-succ (1); 
accept:-true; 
return; 
end; 
end; 


accept:-false; 
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| 
| 
| 
| 
| 
| за E accept a) " 





gurges wp fuell(a,i:integer) 


be 
F "WP. Ēuel1:=match (a,i); 


en 
Žunėtion wp_fuel2(a,i:integer) 
egin 
гир. fuel2:-2nmatch(a,i); 


funéticn wp fuel3(a,i:integer): 
kegin 
WPL fue 13:=ma tch (a,i); 
en 
function wp fuell (a,i:integer): 


tregin 
, Яр. fuel4 :=match (a,1) ; 
еп 


function wp fuel5(a,i:integer): 


kegin 
а; wp fuel5:-nmatch(a,1); 
€n 
function wp fuel6(a,i:integer): 
begin 
WEL fue l6:=match (a,i) ; 
en 
funtticn wp fuel? (a,i:integer): 
€ 
a WEL fuel7:=match (a,1); 


en 
function кр fuel8(a,i:integer) 


ге 
ze "WP. fuel8:zmatch(a,i); 


en 
function wp fuel9(a,i:integer): 
Legin 

ир fuel9:-match(a,1); 
end; 


ammmmmss на E pia E 
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: boolean; 


: boolean; 


boolean; 


boolean; 


boolean; 


boolean; 


boolean; 


: boolean; 


boolean; 


| — rr ————————————————————— ——  — PIE | 


functicn мр ашщо 10 (а,1: 1пЕ едег) : boolean; 


редіп 


wp ammoT10:-match(a,i); 


end; 


tegin 


begin 
end; 
begin 
end; 
tegin 
end; 
kegin 
end; 
begin 
end; 


begin 


egi 
end; 
tegin 
en 
begin 


end; 


нат нити I 
bo 


function ыр апшо11(а,і:іп%едег) :Боо1еап; 
wp_ammo11:=match (a,i); 
Банат оп wp ammo12(a,i:integer):boolean; 
wp ammo12:-match(a,i); 
function wp ammoT13(a,iz:zinteger):boolean; 
Wp_ammo13:=match (a,1) ; 
functicn wp_ammo14(a,i:integer) : boolean; 
wp_ammo14:=match (a,11) ; 
functicn пр ащшо 15 (а,1: 1п + вдег) : Боо1еап; 
wp ammo15:-match(a,1); 
function wp _ammol6(a,i:integer) : boolean; 
wp_ammo16: =match (a,1) ; 
function ир_ашшо17 (а,1:1п%едег) : boolean; 
YPL ammo17:-match(a,i); 
function wp_ammo18(a,i:integer) : boolean; 
WD anmo18:zmatch (a,1i) ; 
function wp_ammo19(a,i:integer) : boolean; 
WPL anmo 19:=match (a,i); 
i tion wp_ammo20(a,i:integer) :boolean; 
wp ammo20:zmatch (a,1i) ; 
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| 


ПН Не O O OSN mam a D сб, «ооо aes, ce Gen de a GS epee eR a eps Pc ee ee MEE oi алты 


mem p—————ÓÁ—————'IL LL LLALUAL LA QAM ишао ера (виа а == еки уны ны, уы, АНИНЕ. карыыр 


function wp_ammoz1(a,i:integer) : boolean; 


tegin ' 
wp ammo21:-2match(a,1) ; 


end; 
function wp ammo22(a,izinteger): 
begin 

а: wp ammo22:-2match (a,i); 
en 
function wp ammo23(a,i:integer): 
begin 

wp ammo23:-match(a,1i); 

end; 


boolean; 


boolean; 


function wp_ammo24(a,iz:integer) : boolean; 


begin 
wp ammo24:-match(a,i); 


end; 
gm ES Xp ammo25(a,i:integer): 
begin 
" wp ammo25: -match (a,1); 
en 
function мр ашпо 26 (а,1:1п%едег) : 
begin 
à: wp ammo26:-match(a,1); 
en 
function wp ammo27(a,i:integer): 
€ 
5 we ammo27:=match (a,i); 


function wp .ammo28 (a,i:zinteger): 
Legin 

а; wp ammo28;-2match(a,1); 
en 
function wp ammo29(a,i:integer): 
kegin 

à: wp ammo29:-nmatch (a,1) ; 
en 
function wp ammo3C(a,i:integer): 
begin 

а; Wp ammo30:z-match (a,1) ; 
en 
function wp ammoz21(a,i:integer): 
regin 

Wp_ammo3 1:=match (a, 1); 

end; 
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boolean; 


: boolean; 


boolean; 


boolean; 


boolean; 


boolean; 


boolean; 


1 ма pees ey ee ces (ea es Wm (°чәшчшйфифие ВН SS ee lino et Ge ng Ges GENS Cs, ee {21 ce D зи AD seme Pea „ы. 


| functicn wp num32(a,i:integer):boolean;j 
begin 


В wp num32:-2nmatch (a,i); 
end; 
function wp num33(a,i:integer):boolean; 
regin . 
wp num33:-match(í(a,1); 


end; , M" 
function wp num34(a,i:integer): boolean; 
begin | 
Е wp_num34:=match (a,1) ; 
end; , E: 
functicn wp num3E5(a,i:integer):boolean; 
begin | 
wp_num35:=match (a,i) ; 


ега; . ЖУ 
function wp num36(a,i:integer):boolean; 
begin i 

нр num36:-nmatch (a,1) ; 


end; : 

function wp_nun37 (a,i:integer) : boolean; 

tegin ) 
wp_num37:=match (a,1) ; 


end; 
function wp_num38(a,i:integer) : boolean; 
begin . 

Е wp num38:-natch (a,1) ; 
end; а 
function wp num3S(a,i:integer):boolean; 
kegin у 

Е wp num 39:-nmatch (а,і) ; 
end; 
function wp_num40(a,iz:integer) : boolean; 
begin . 

wp num40:-match (a,1) ; 


end; . 2" 
function wp_num41(a,izsinteger) : boolean; 
kegin . 
E ир num41:2matcn(a,1) ; 
€nd; . ши 
function wp_num4z (a,izinteger) : БооТеап; 
regin | 
| wp _num42:=match (a,1) 3 
end; . e 
functicn wp_num43{a,i:integer) : boolean; 
begin . 
Е wp_num43:=match (a,1) ; 
end; . Zu 
functicn wp_num44 (a,iz:integer) : boolean; 
begin . 
wp numA4J:-match(a,1) ; 
end; 


————————— 


eS a a  ENEEEIONEENLO- GM EN: — EE) 7 = “ee EE ee ee 2 5ш, 
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P." ям МАМА a И 


p———————— "—————— пий 


--- 


function wp_fuel (a,isinteger) :boolean; 


case 1 of 


1:wp fuel:-wrp fuelií(a,i); 
2:wp fuel:-wr fuel2(a,l); 
3:Wwp fuel:-wp fuel3(a,1); 
ü:wp fuel:z-2wrp. fuel (a,1); 
S:wp fuel:-wp fuelb5(a,l); 
6:wp fuel:-wr fuel6(a,1); 
7:wb fuel:-wr fuel7(a,l); 
8:wp fuels=wp_fuel8 {a,1) ; 
Ззир Ецеї:зир Ецеї19 (а,і) ; 
end; 
end; 
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у 


| functicn wp ammo (a,i:zinteger):boolean; 
begin 


case i of 

10:ҹр_ ашпо: - ир ашпо 1 
11 зир ашпо: - ир ашпо | 
12:wp ашшо: <ир ашшо | 
:Wwp ammo:-wr ammolí 
:ир ammo:-wp ammo 
p ammo:-wr ammo 
-ammo:-wr ammo 
p ammo:-wr ammo 
p ammo:-wp ammo 
p ammo:-wr ammo 
p ammo:-wp ammo 
p ammo:-wr ammo 
p ammo:-wr ammo 
p .ammo:-wp ammo 
p ammo:-wr ammo 
p ammo:-wr ammo 
p ammo:-wp ammo 
p ammo: -wr ammo 
p ammo:-wp aumo 
p.ammo:-wr. _апло2 
P .ammo:-wr ammo3 
яр. -ammo:-wE-ammo3 
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function wp num(a,i:integer):boolean; 


кока ——— ee 


end; 


- 
| 


i2:wp num:-wrp num32 
33:чр num:-wp num33 


Jü:wp num:-wr num3lJ 
35:wp num:-wr num35 
36:wp num:-wp.num36 
37:wp num:-wr num37 
38:wp num:-wr num38 
39:wp num:-wr num39 
4O0:wp num:-wrp numüO 
ü1:wp пуш:<ир пиш4 1 
42:ир пиш: зир пип42 
Ц3зир пуъш: <ир пум43 
на З 
end; 


ррпррррррррррр 
з з з З з. з з з з з з з з 
ннен, 
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= с у лы ЁЁ ыу сосы сутту үт тү] 








function чегу (а Ес ы ече: boolean; 

label 46,47,48,45,9 

begin. 
if resatisfy then 06913 break(48); goto 48; end; 
46: Set ae Tt а fuel,46,a)) then goto 47; 


ц7: EET iot posita anmo a)) then gto 48; 
а тачно 3 чаї) goto 


i 


BE RE 


goto 
48: us accept(wp num a then goto 49; 
Жағаны а o 
break (47 


49: іо oS И then 


query:-true; 
ret utn: 


| 
| 
| 
| | 
| 
| епа; | 
99:guery:-false 
end; 
begin 
lnum:20; 
| putfiles; 
| message execution begins....',0); 
resatis + ни 
| sign:- | 
| while M 2*5 аю | 
| regir | 
aed шег Чч; 1) then | 
е 
1 nessage(' yes" | 
primu ен СЕ. 5 
readin (tern NN '"close(term); | 
if (sign-' 
и | 
else resatisSfy:-false; | 
if(lrum»50) then | 
begin | 
lrum:=0; | 
writeln(listing,' ие 

епа; 

if resatisfy then 

Smet Cee Sean am c | 
af resatisfy t 

message ( СА ар goal...."' 

| else шезад ela execution ends...." E | 
! continue; 

end; 

message ЕЕ (ВОО 

message(' execution ends....',0); | 
halt; | 
end; . | 

end. (S nain 7) | 
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mn 
uU ae vv ve aE ECO се ес се eee eK Or = 


сос? 


с) 


озссоссосоососесососососососососоосососососососоаста 
em 


ооо ооо ооо ооо ооо сос 
— со 


осеоеососососососососососососооссососсососососоосозосоо 
су 
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м “ОО N 
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9 
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• 
Wn d gn e 
(x 
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О 
С 
= 
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exp o er en 54 U1 
HHHOO HH 
оғына рер EH 
ELE 
ыш 
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a es ED ee aS SS ST 


а FOO = 


Hm WLALNLAM 9 


п ш Е 
U1 P494 04 04 Ay 
e Du P ez ex рч 
HHHO Q Еч 
ÙU рч рар ra 
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RESATISFYING СОЛІ...» 


| yes | 


gy pg ey (ign да). 


~ 
od 
Minn ий 


WATYPE 
RESATISFYING GOA 
yes 


чи и ea 


SY 

WATYPE 
RESATIISFYING GOA 
yes 


г 
>< 
ни ниши н ни ни 


LY 

МАТУРЕ 
RESATISFYING GOA 
yes 


FA 
od 
F3u uH eo 


о 

ы 

rg 
ШЕЕ 


р toU E coh ћ № {= => 42 РВ р 4= E СОН Рћ Y WANNI с 


W NULLE Co Fh - Fh 


оом р о OON р» О) Con р о OON фр (ә oom ж 
оо а оо С) оо а оо а оо 
© © © © © 


UJ 
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exes ee SE E E 


(ҚА ee ee 


Ene GEES PES) ees GES GS ee ee ee Gee ee EE Gey Gs GS Se ee TaD Gm GE осі) қалат OE GS Gn ST es Ge ey SS ee нн С о р Ао ни рау ә 


е 

9 

$ 

е 
= 
«e 
© 
о 
2 
= 
H 
рч 
г. 
ил 
H 
ЕН 
req 
и) 
м 
ра 


о 

оо 
м зошо = 
HPNHOUIMM ed 


9 
9 
e 
• 
"uu wey ин 
е 
Q 
о 
о 
=; 
H 
п m Rio 
Ола ба Си Си uf 
еЧ еі еі ец PU) 
РЕНО Е 
Q E4 b Ba e 94 PH ec EA 
SEIEN 
ч 
ра 


о 
оо 
м шо m 
PAWOLIMM б 
е 
• 
• 
• 
HOW on nog wow oH = 
ex 
о 
е 
о 
= 
H 
л a рарч 
ора б б ра ра 
ex ура «а HN 
‚РЕН С) HH 
Очен аре рака 
а с ре С СЕ є єс 
ро 
m 


Q 

оо 
м FON = 
секс ed 


а о 
м oo 

> ош из 
(dex mme d 


9 
е 
е 
е 
Hou n gw ono wg Wow wg o ow dw on 
e e 
о Q 
о о 
со 4 
= = 
| H 
N р ра по m рарч 
WIFI AYA, A, Сара NANAY Ay hy 
ex Da pA ex ed PHU GA Piatt HUN 
НеРЕНЕКОО ен  C-PEOQOQ ені 
Orme OF Baa REP PH er EH 
1 ГЕ REEERE е 
чи и) 
нү", Т 
ра РУ ра 


Л 
Ш 
> 


E о 
Сл оо 
42 рисо = 
зоча тост 9 


9 

. 
a а 
"uuu ug d a 
ка 9 
Q • 
O пм 
A 
O ж 
= m 

H 
N f^i ВІРУ ж 
N A Y U A с О 
ес Гірі еден HN FF 
РЕНО О ен Е 
СОЕ Нана ка ра реа DO 
рлі U 
U) ЕЧ 
ВЗ ОРЯ 
ра ЕРІ 
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SAMPLE PROGRAM 3 


- 

а, 

«т 

O 

«г 

[= • 

~ = 

Ay РЗ 

ка Ay 

U ы 

fz £4 

= a 

` HE 

ГІ ~ ~ 

Cu ом 

к Or 
во бо о о р • ENOO ~ 
р on OXJ ps 
ОООООООСО e CO I e 
QOOOOOOOOcC al A з 
COOCOMOMOM RIA ARI 
> с) ССС) о е о ее ее ее с в Си Сч во Су 
о мии 00 0 о 9 6 о о ерік) Бч 


COSMOCOCOMM qd (Y dX qw (dX dX qv» qY& d qv 69 69 69 восток со счсчео Стао со со арак 





~ о о АЕ Со" VVV = 
во нон &oo оов = ~ о ~ ооп а 
ооч 00H OO ode rr Ow) DO U но он н U- ex ex d 
SOHN Q6 d-D Q2 2552 ^á a6 В д Ф фм YD Фр вам В ва OU AMO OW po I 
HH 63,0 490 94 63 „3 00 45 43 40 49 4445 (0,201,0 40 40,03 03 00449 49 04445 40 У (04 Ол ФАУ м чм Odu ei p. 
42 420-44 6,640.04 (99440 РЕВ: = 
гі-інігігінігсінчі ооо ооо ооо о ооо ооо о оо ом 1.11 
popqgqaoququougquiunRmRHEmBHE &E Fi & & Fi Ei Ei El Ei El Ei Fl El Ei Bl El Ei Ei Ei Ei El El Ei Bl Fl Bl El Ei i er 
мэмоээооооэоэонинннвнннниннининннЕННЕННЕН 229292929999 ТР 
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OUTPUT OF PROGRAM 3 


FYING GOAL.... 


о 

осо 
COO хо 
e-Ucozte-t єї 


XECUTION BEGINS.... 
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Л 
т 
> 


о 

оо 
NOO ст 
чс д 


та 
га ч ч 
Сір «е 
HHOU 
ЕН ер ез 
гає а И 


ЕРЕ 


о 

оо 
NOO хо 
*71H 00 zt ua qn 


о • 
• 9 
е • 
• • 
О ИНН 
«г e 
Q Q 
о e 
©) о 
e = 
H + 
рч R61 Бурч 
ра Басуга Ay Ru 
02 AHL PU) 
Нн РІС) Еч 
ЕН енер eG PS PH eG У 
A RZEKA Е «а 
ии 9% 
о. ii 
Ра PN ы- 


о 

ОС 
NOO m 
MLO SPIN е 


FYING GOAL.... 


ЕРТЕСІ ENDS... 


E 


fx] 
51040404 A, 
Сря «а «с 


Yy 
5 


up СЕ є 
Ul 


ye 
RE 
| nc 
EET 
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SAMPLE PROGRAM 4 





НАТУРЕ), 


ТҮ 
TYPE, LX, LY, ANUN). 


e e ос • с с с с o 
OPO, 
ОООООЭОСОЭО 
СООООООООО 
ООООИЗОИЗОСО 
OFMALNOMNMN о о е ө ө о с ө с • с ео о с ө с с о ө ө ө е 


WIE 


3 
0, 
0, 
0, 
0, 
0, 
0, 
1 
2 
1 
2 
6 
3 
lj 
Ц 
3 
1 
3 
6 
3 
5 
6 
1 
3 
ц 
6 
3 
1 
| 
„б 


Co OUO OOuUnu (d Ооу оч оо ооо о о у О Ой О GCOONODDONNDNDOODNN 


у» з з %ъ %ъ 9. ЕУ СЧ го е-е Н а 
во нон Hoo оон g ....з....... ./- 

O ord UO ordi Mm ооо ro mo со во Og а ща 
MOP VM SCHUPMMM MOOD DUMMY OY OM My с Зла ла оч cit) tU | || 
HU (d.c б. mi 42 42 429 42 0-404 e$ dud 42 429 дао ju 42 42. cd u-4u- OW Od OP odd oe UA, 
ААА Ааа дәу СН, С (0944 + 0444 = 


. fuel 
. fuel 
. fuel 

fuel 


Wp 
WE 
WE 
WP 
WE 
RE 


fuel 
fuel 
fuel 
fuel 
fuel 
wep ammo 
wr ammo 
WP ammo 
WE ammo 
WE ammo 
WE ammo 
wp ammo 
Wr ammo 
WE aimo 
WE ammo 
ammo 
wr num 
wp num 
WE num 


wr ammo 
ыр ammo 
wr ammo 
wr ammo 
wr ammo 
wr ammo 
wr ammo 
wr ammo 
"р ammo 
wp ammo 
wr ammo 
WE num 
wr num 
wr num 


«р. 
wP. 
WP 
YE- 
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WCLASS = tk 
WIYPE = 1 
LX = 1 
LY = 3 
WATYPE = а 1 
] WNUM - 40 
| RESAIISFYING GONI.-.- 
yes 
WCLASS - tk 
WTYPE = 1 
IX = 1 
LY = 3 
КАТУРЕ = a2 
W NUM = 40 
| RESATISFYING GOAI.... 
| | yes 
РА 5 = tk 
WTYPE z 1 
LX = 2 
LY = 3 
WATYPE = al 
WNUM = 50 
“HESATISE YING “GOAL... 
yes 
WCLASS = tk 
WIYPE = 1 
X = 2 
LY = 3 
WATYPE = a2 
ANUM = 50 
RESAIISFYING GOAI.... 
es 
WCLASS = fac 
WIYPE = 1 
LX = 1 
LY = 4 
WATYPE = a6 
HNUM = 5 
RBRSATISFYING GOAI...- 
| yes 
WCLASS = fac 
WIYPS = 1 
LX = 1 
LY = 4 
WATYPE = a3 
| W NUM - 5 
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E О О О 
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a • • • е 
e e 0 6 9 
. • а 9 • 
• • • • • 
Hn uu Пт лл нинин 89g mg ug NNN MUNAAN 
«б «й «г єс «а 
О О Q О о 
с о C5 о о 
(5 со о C 0 
e 5% = = = 
H H = Е H 
п о ~ (л BE] P а б] ^+ uU о Рв! й AM >! (л сч 
uti мо ро он Qi E N а в (Ла а fy Uum Q4 Б, WAY Сч 
CA; PAH aA, HEN <A WSN tA, HEN «з HEN AY рч 
HP HOW кірі РН] чн EDH H HDH німі ЕШКІ кірі HƏ 
(ЕнРаР РАКА | (ОЕчра РА! ЕЦ ORNA О РАРНАААЕ OHM Heh О РЯРАЮА А 
ЕЕ НН рлы жена рокада НН -Ж+у - 
Л vi) 911 Фи чи 9: 
Ф ч Ф Чч ш 4% mu ч Ш 
оч Pa P4 ПОРУ 23 24 Га > Ра Р 
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i 


RESATISFYING 


L 
WATYPE 
WN 


W NUM 
BRESATESPYILING 
yes 

WCLASS 

WIYPE 

LX 


ТҮРЕ 
UM 
ЕЛ В Не 
es 
L 
Y 


до 
а 
а 


РЕ 


2 брз ва а (3 Ари зна С) He 
HE HGA 


Naess Peseta фа 3 


GOAI 


и и и ни и 


e 
О 
p» 


ни ни и и 


аз 
О 
ры 


E: d on www 


Q 
O 
зы 


F3u 0 uH 


Q 
о 
qi 


и и и ни i 


Q1 
O 
p» 


пий й 


UY WN -V WUW ЕУ 
NUI et NUJ (D 
ча ЕН 
Е О 


f» 
а 


сої» слот 
с 


= или £f» Cototoct 
с" М. ж 
ча 
t3 


Со += 
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I аарына аныыр арайын 


mc ERR чи з m эшш от 0 „м O — зна i ле. i a чо | ER uo o сиво TUERI 


ERSATISFYING GOAL.... 
yes 
WCLASS 
WIYPE 
ІХ 
LY 
WATYPE 


WNUM 
RESATISFYING GOA 
yes 

WCLASS 

WIYPE 

LX 


ВУ 

ЯАТУРЕ 

W NUM 
RESATISFYING GOA 
yes 

WCLASS 


ош 
Б: 
| 


go 
а 


COP NUN Fh 
ОЈ 


Hil uta tt 


ср СЛ С" 
оо 3 


ній u Wo wow и 


P 


LX 

LY 

WATYPE 

WNUN = 
PESATISEFYING СОАТ.... 


nc 
EPSSCUTTON ENDS..-.. 


| gw ow ШП 
EY UN СР 
соо) 


{е с бажання» a So, ee gees PD ie oes dictum. OSS ee SD Sei ge, EN 23 
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SAMPLE PROGRAM 5 


Г. 


1 


~ 
= 
[23 
го 
кы, 
Еч >; 
en 
"=з 
wp 
— з 
rim 
~ 
>< м 
-іғ4 
го ос о р; * 9 ө ө w] 
mug gms Шо з 
оообоооооо б.г 
ооооооооо P (Сц 
Qooououwuoo > 
О ео СО) СЧС) о о ооо о о о өе о о с о со с со э со се ВЕ 
€ € V ~ ~ ~ ~ чл циник на чи 09 0 0 8 0 0 о о о о о ө ы 


1 
n, 
о, 

gm 

1 


ће] 
tk 


tk 
tg 
ac 


СК 
tk 
atgm 
fac 
fac 
tk 
Рак 
ЕК 


tk 
fac 
tk 
сас 
а 
iel 
at 
tk 
tk 
tk 
tk 
fac 
fac 
at 
hel 
hel 
tk 


_fLuel (at 
- fuel 


he 

he 

a 

f 
eG 
a 
hol 
tk 
helo 
atgm 
вас 
у 
а 
fag 





fuel 
fuel 
fuel 
_fuel 
_Luel 
ШЕШЕ 
_fuel 
Wr ammo 
WE ammo 
WE ammo 
Wr ammo 
wp ammo 
wg ammo 
wp ammo 
WE ammo 
WE ammo 
WE ammo 
WE ammo 
WP ammo 
WE ammo 
WE ammo 
WE ammo 
ир ammo 
ир ammo 
wp ammo 
мр ammo 
wr ammo 
WL ammo 
ammo 
we nun 
wr num 
WE num 
we num 
WE num 
wr num 
wr num 
wp num 
WE num 
нр пап 
wp num 
wp num 
WE num (tk 


Би 

ра 
WE 
WE 
MES 
WE 
WE 
WE 
WP 
кр. 
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{ : 


| 
E 
1 


ЕЖЕСПОТТОН ВЕСІН5.... 


yes 
WCLASS 
ЕЕ 


з 
Е 
(л 
шын реж Е 2 
rd > 
KH HGB 


ZKKA MSP (ә) Hab 


cid 
на 
го 
ty 


"3 
Fri 
гл 


мағы we 
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Re cALLSF YING 


RESATISFYING 


yes 

WCLASS 

ИТУРЕ 

ТХ 

LY 

WATYPE 
WNUM 
RESATISF YING 
yes 


- 


Fu н 


QQ 
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> 


чини ни и 


а) 
О 
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ннн КН 


сз 
О 
„ы 


ЕНІІШІІШІНІ 


т 
O 
ры 


ни Ни ин ин 


GQ 
о 
қы 


APPENDIX P 


OUTPUT OF FROGRAM 5 
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a pi a оли ey а парка пар шанси RT cp Tg ишти el нарасту давне a D p aa aana S ДаНӘЫРНЫ 


RESATISFYING GOAI.... 


yes 
WCLASS 
WTYPE 
LX 


LY 
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WNUM 
RESATIISFYI NG 
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кеін нан 
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сај С) 


ғо 
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ш 49) Борона О) н н 
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(laces (fies GS амо дет OE) CR Re me ey es GE) Coe To ope GE he Se (ge) Es RD gg eS wee) See сас ey Ge CE eee Garis Gee лалар Сайыс (алауын (Бабына; Duff SN 





Ww NUM 
REESATISFYING 
yes 

WCLASS 

WIYPE 

LX 

Ly 

ЯАТУРЕ 


УМОМ 
RESATISFYING 
у є5 

WCLASS 

WIYPE 

LX 


[Y 

WATYPE 

W NUM 
RESATISFYING 


НИ wu и 


GOA 


и пи ни нв 


СОА 


ни ин и ни 
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и Пипин 


GOA 


и пи ни: 


СОА 


RESATISFYING GOAL...» 
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NM WUNA -а V UNE 
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V WNW (о СОМА" 
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uc 
B 
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| — E Е——-0 
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е 
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~ "о 
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